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QUEUE 


This program samples a2 given arrival rate of weadenes-aud a 
- given service rate for these students, both from a Poisson distribution, 
and calculates student waiting time and facility usage for every level 
of facility availabi-ity between the level specified and 1. The in- 
tended use of this prograx is ba cesigee how many of a specific service 
facility should te waticvie to meet a hypothesized student need. A 
typical problem being investigated may be described as follows: 

Given an individualized curriculum that will cause certain . 

relatively random demands on variovs facilities (as against 

more typical carefully scheduled demand, in which case a 

student has a fixed amount of time to do whatever he can), 

how many of each kind of facility should be available? 

(Guidance Ccunselors, Arts & Craft Stations, etc.) 

The answer to such problems really involve in tetseretie trade-off 
decisions between investment in facilities and the freedom implied in 
individualized curricula (as deaaueed by: student waiting time). Stated 
another way, chee is a compromise to be made between use of facilities 
and useee student time. The QUEUE program does not by itself indicate 
what compromise to make; it merely indicates the probable effect of 
uaving a specified number of facilities available to meet a hypothesized 
demand. 

On the following pages are the results of a cample prol..em, sin- 
ulating a 9 hour day, with 20 students per hour arriving on the average, 
each requiring about 10 minutes of service time, individually (group 
size 1). Initially, 20 service facilities were hypothesized. 

Each line of the output pope cate a one-day sample... Shown is 
the number of service facilities available that day, the average student 


waiting time (assuming al]. arriving students wait until they are serviced 


or the day ends), the average (per cent) facility utilization, and the 
: / 
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number of students serviced. 

The first sample run ececena ach a hypothesized 20 service facilities. 
It shows. that the needs could be met with nine or fewer facilities; con- 
sequently, three more sample runs were made starting with this number. Ai- 
though the output differs somewhat from run to run, as is expected in a 
simulation exercise, the emerging pattern is that most, if not all, students 
can be accommodated with four heavily used service factiitiess. However, 
if student waiting time is important, 5 or 6 facilities should be considered, 
even though these facilities will then be used a smaller per cenc of the 
time. _ 

Interpretation of the results of QUEUE depends on sevetet factors 

. not considered in the computer program. To have a given level of service 
facilities available to students at any given time may require actually 

having additional facilities, considering maintenance. The operation of 
a schoo! may not permit really random student arrivals: certain times 
(e.g. lunch) may be set aside for other activities, or, curricular considera-~ 
tions may indicate an uneven demand for a service facility. 

‘Greve time May also require careful thought. There is relatively 
little accor imental evidence about how long children will spend with a given 
device, or, for that matter, about how often they will select es in an 


individuakized environment that offers considerable freedom. 
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Operating Instructions: (UMass Time - Sharing Version) 
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2. 


FETCH the program, or read it in on punched tape. 


Replace the test data in line 900 with the data to be used. 


Additional lines of data may also be keyed, with line numbers 


greater than 720 but less than 900. The program will operate on 


successive sets of data until the ending conditions of line 901 


are encountered. 


The input data are: 


ae 


Sample input data line: i 


900 20.0, 10.0, 1.0, 9, 9.0, 1.0 \ 


Arrival rate, students per hour, F format. It may be 
desirable to select a peakihour eatves than a typical-hour 
for some purposes. The mo el will select actual arrivals 
from a Poisson distribution with the given arrival rate as 


its parameter. 


Service rate, minutes per student, F format. The model will 


“select actual service rates from a Poisson distribution with 


the given service rate as its parameter. 
Group size (how many stodents are to be serviced at once), 
F format. 
The starting number of service facilities, I format. This 
is the iaevese ae of service facilities that ene be 
needed. The model will give the consequences of having one 
through this number of facilities. : 
feel we ate day,.in hours, F format. 

' 
Number of days to be simulated, F format. Currently, this 


is limited to 1.0; different runs can give a picture of 


different sample days. 


sy = 


3. Decide whether or not es use the random number generator seed con- 
tained in the program at line 25. Restarting the program with different 
data without changing this seed will nea that the random number genera-~ 

“tor will start at the same place for each run; and, consequently, any | 
idiosyncracies of the generatoy will affect each run in exactly the same 
way. To change the seed for the random number generator, rekey line 


25 with the new seed. 


Sample random number generator seed line: 
25 ISEED = 975384763 


4. Give the RUN command. 


ERIC ; | | 7 1-4 | ; = 


ARRIVAL RATE,STUDENTS PER HOUR= 20-00 
‘SERVICE RATEsMINUTES PER STUDENT= 10-00 — 
GROUP SIZF= 1-00 . 

STARTING NUMBER OF SERVICE FACILITIES= 20 
LENGTH OF pay. IN HOURS= 9-00 

“NUMBER OF DAYS IN SIMULATION= 1-00 


hore 


: . * oad ) 
NUMBER OF AVERAGE AVERAGE TOTAL 


SERVICE STUDENT FACILITY NUMBER 
FACILITIES WAITING USEAGE ‘STUDENTS 
of . TIME . ‘sSERVICED 
20 0 16°37 178-00 
19 0. 1888 185-00 
18 0 18-20 164.00. 
i 0. .20-68 168-00. 
16 0 20-97 165-00 
15 -"0- 22668 ~=— 181-00 
14 0 24-42 171-90 
i3 0 27-31 + 181-00 
12 O ‘24686. 158-00 
11 0 24685 165-00 so 
10 0 ..29-25 175400 ° 
9 290 40-86 ‘186-00 ; 
8 702 =40+-72 ~ 163-00 
a , 932 51°34 - 172-00\ 
6 2-18 59-99 128-00; 
s 1%52 65+60; 179-00 
4 5-95 82-82, b&1-00 
a 53-12 97°-05° 129+00 
2 108646 99-43 106-00 
1 


188-01 99-84 57+00 


1-5 


ARRIVAL PATE, STUDENTS PFR HOUR= 20-00 . 


SERVICE PATEsMINUTES PER STUDENT= 10-00 
GROUP SI7#= 1-NN.. ; 
STARTING NUMPER OF SERVICE FACILITIES= 9 
LENGTY OF DAY IN HOURS= 9-00 : 
NUMBER OF DAYS IN SIMULATION= 1-00 


NUMBEP OF ‘AVERAGE AVERAGE TOT4L 


: SERVICE. STUDENT FACILITY NUMBER 
FACILITIES WAITING USFACGE STUDENTS 
. TIME SERV-ICED 
. 9 - ie) 37-22 172-00 
: 8 0 44034 1864-00 
! 7 0 43+92 158-00 
6 18 AB-02 171-00 
5 1641 60-72 182-00 
4 ~ 4°39 = 719298 169-00 
: 3 23-12 95-07 © 143-00 
1 178-28 98-51 - 46-00 
NUMRER OF AVERAGE AVERAGE TOTAL 
SERVICE . STUDENT FACILITY NUMNRER |) 
FACILITIFS WAITING USEAGE STUDENTS 
' TIME SERVICED: 


0 35-07 179-00 

8) 37°47 158-00 

0 45-88 183-00 

016 48-48 177-00 

°83 69-21 182-00 

2.92 81°96 160-00. 

20-89 92-13 150-90 
71°17 98681 109-00 - 

"185-23 99 +30 58-90 
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NUMBER OF AVERAGE AVERAGE TOTAL 


SERVICE > STUDENT FACILITY NUMBEP 
FACILITIES WAITING -USE4GE STUDENTS 
‘TIME SERVICED 
9 0 37-288 182-90 
8 0 42-47 163-00 
7 0 . 49%73 173-00 
6 °07 50047 164-00 
5 1-74 66-38 167-00 
4 3-31 82058 180-00 ° 
3 44.85 98-00 144.09 
2 94647 OBO 92,600 Teg 
1 


a |} 
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q 
Queue: ‘Flowchart \ 


ay 


Input: 
320 Read Arrival Rate ~ ARate _ Students /Hour 
Service Rate ~ SRate Min/Student 


Group Size ~ GRSize 
Number of Servers ~ NSER 
Hours in one Day ~ ETime 
; , Number of Days ~ Days 
335- 410 Print Input Data . és 
425 Convert Service Rate to Studentafsour ae SRate = 60./SRate 
. 430 Convert Arrival Rate of Individual Students to 
Group Arrival Rate ARate = ARate/GRSize 
Return , 


- Output: , , : 
465-485 Compute Cumulative Waiting Time - CWI ° 
, Total Groups Served - TOT 
490 Compute Average Waiting Time in-Minutes - AVCWT 
495 Compute Total Students Served - TOT = TCI*GRSize 
505-520 Compute Average Facility Useage, PST 
522-560 IF First Line This: Run, Print Headings 
565 Print Current Information 
Return 


Queue: Flowchart 
Main Pregram 
25- 40 Seed Random Number Generator 
‘45 Get Input Data 
55 Save Original Number of Servers in ITest 
65- 80 Set K, S Date Areas to Zero 
110-145 Find Channel-with Shortest Time to Availability 
150-160 Test That Not All Channels Run to Maximum Time. Otherwise Go to 250 
165-175 Get A Sample Random Interarrival Time 
‘180-210 Perform Service For Next Arrival on Selected Channel 
215-220 Set Last Arrival Time Throughout Data Array 
225-230 If Selected Channel Usage 7 Mx. Hours, Make it Unavaiiable 
' 240-245 Step Cumulative Counters for Selected Channel 
2590 Print Report of Results 
255 Reduce Number of Servers By 1 
260 # Servers > 0? 


320 


335-410 
425 
430 


465-485 


490 
495 
505-520 
522-560 
565 


> 
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Queue: Flowchart 


Input: 


Read Arrival Rate — ARate Students/Hour 
Service Rate - SRate Min/Student 
Group Size - GRSize 
Number of Servers -— NSER 
Hours in one Day ~ ETime ‘ 
Number of Days ~ Days 

Print Input Data 
Convert Service Rate to Students/Hour SRate = 60./SRate 
Convert Arrival Rate of Individual Students to 
Group Arrival Rate ARate = ARate/GRSize 
Return . 


Output: 


Compute Cumulative Waiting Time - CWT 
Total Groups Served - TOT 
Compute Average Waiting Time in Minutes -— AVCWT 
Compute Total Students Served ~ TOT = TOT*GRSize 
Compute Average Facility Usage, PST 
IF First Line This Run, Print Headings 
Print Current Information 
Return 


Queue: Flowchart 
Main Program 

Seed Random Number Generator 
Get Input Dats <->  e 
Save Original Number of Servers in ITest ‘ . 
Set X, S Date Areas to Zero <jp———___ 
Find Channel with Shortest Time to Availability 
Test That Not All Channels Run to Maximum Time. Otherwise Go/to 25 
Get A Sample Random Interarrival Time : 
Perform Service For Next Arrival on Selected Channel 
Set Last Arrival Time Throughout Data Array | 
If Selected Channel Usage 7 Mx. Hours, Make it Unavailable | . {| 
Step Cumulative Counters for Selected Channel I] 


Print Report of Results <—--. -- icf iene ~ 

Reduce Number of Servers By 1 / | 

# Servers > 0? If "yes" — : 

Pen! te ah ced a eee | oes . | 
1-75 


Subroutine Raise 


e 


Subroutine Raise: Computes Exponential Random Variable Based 
on Number’ of Arrivals Per Unit Time or Number of Customers 
Serviced Per Unit Time. 


Subroutine Service: For Selected Service Channel I, Next Event, 


605 Establish Entrance Time into System of Next Event x(I, 2) 
610 Is Channel then Busy? 

615 Customer Waiting Time = 0 x(I,3) 
620 Put Channel in Service x(1,6) 
625 Compute’ Channel Waiting Time ' (1,5) 
635 Compute Customer Waiting Time _ x(I,3) 
640 © Put Channel in Service When Free x (1,6) 
645. Channel Waiting Time = 0 x(1,5) 
650 Get Random Service x(I,4) 
655 Compute Customer Exit Time From System x(1I,7), 
660 Compute New Channel Available Time x(I,9) 
665 Customer Total Time Customer in System (End Arrival x(I,8) 

Time) 
Return 


Contents of Data Areas 

State (50): 1 Thru Number of Servers Available 

State (I) = 0 Means Server Not Yet Busy Full Time 
= 1 Means Server Saturated, Not Available 


X (50, 10) For Up to 25 Servers 


Odd: Next Group _ Even: Channel 
1 Random Interarrival Time (Groups) Sum of miterarcival Fite This Channel. 
2 Next Arrival Time : \ _ 4 . 
3 Waiting Time, This Arrival \ Sum of Waiting Times 
4 Service Time, This Arrival Sum of Facility Used ‘Time 
5 Server Idle Time, This Arrival Sum of Idle Times 
6 Entrance Time into Service ; > 
7 Exit Time from Service (and System) ‘ 
8 Customer Total Time in System ‘Sum of Customer Used Time 
9 Previous Exit Time from System | 
10 Set to 1 for Channel in Use Total Arrivals This Channel 


X (I, 2) is Set Throughout Array a I Odd to Indicate Next Arrival Time for 
All Channels 
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ROGRAM QUEUE 


6 DIMENSION X(€50210).sSTATECSO) 


ISEED = 452368791 

COLL RANFSET CISEFD) 
ISVi = ISEEN 

ISV2 = [SEED + 45689321 


CALL INPUT CARATEs SRATEs GRSIZE,NSERs ETIMEs DAYS) 


ITEST = NSER 
D4YCT = 1-0 
DO 8N 121559 . 


STATECI)=9N-0 
DO 8&0 J=1510 
KCL, JI=RN.O 
N = 2*NSER 
QNT=100-9 
NT=4NT. 
DO 248 14=151900 
K=I4 
SHORT=99999. 9 
DO 145 [=15Ns2 
IT=1/2+1 
IF (STATECIT) -EQ+ 1-0) GO TO 145 
IF (SHOPT-XC1I57)) 14551355135 
.ISQVE = I 
SHORTH=XC 157) 
CONTINUE 
DO 155 I1s1,NSER 
IF CSTATECI1) «NE. 1-0) GO TO 165. 
GO TO 250 
CALL RANFSETCISVI) 
C4LL PAISE (RITs4RATE) 
CALL RANSGETCISV1) 
I = [SAVE 7 
XCls1)=PIT 
XC1s 10021 -9 
C4SLL RPANFSETCISV2) a \ 
COLL SERV (X%s515SPR4TE) 
CALL RANFGETCISV2) 
po 220 I1=1]4N,2 
XV1152)=4%¢0152) 
IT=1/2+1 
IF (XC€1,9) -GE- ETIME) STATECIT)=1-0 
It=I 
bO 245 w=alstd 
XCII+1,J)= KCLI+ 19 d4XC1 19 dD 
CONTINUE 
COLL PEPORT CITEST» Xo Vp NSEP» GRSIZED va 
NSER=YVSER- 1 : 
CALL PANFSET CISEED) 
IF (NSEP® -GT- 0) G&G TO €éS 
ISEED = ISEED + 25468932) 
GG TO 45 
END 


Sn 


304 


325 


‘SURPPROUTINE INPUT (ARATE , SRATE, GRSIZEsNSER» ETIME, DAYS) 


DIMENSIG* X€50510)5STATECSO) 

PRINT 311 oe 
FOPMAT CM) ' _ 
READ, SPATE, SRATEs GRSIZEs NSERETIMEs DAYS 
IF (NSES «EQ- 0) STOP 

PRINT 3405 APATE , 


) FORMAT C#ARPIVAL RATEs STUDENTS PER HOUR=*sF 602) 


PRINT 2555 SR4TF 
FORMAT CESEMVICE RATEsMINUTES PER STUDENT=%sF6.2) 
PRINT 3705 GRSIZE 

FORMAT (&GROUP SIZE=*sF6+2) 
PPINT 3855 NSEP 
FOPMAT C#STAPTING NUMRER OF SERVICE FACILITIES=*»13) 
PPINT 400. ETIME | ; 
FORMAT (&LEMNGTH OF DAY IN HOURS=*sF6-2) 


, PRINT 4154 DAYS 


FOPMAT (¥NUMRER OF DAYS IN SIMULATION=*,F6.2) 
SPATR=E60 -N/SRATE 


APATESAPRATE/GRSIZE 4 
PETUPN | 

END 

-SURROUTINE REPORT CITEST.XsN»NSER,s GRSIZE) 


DIMENSION X(50,10) 
CUT=9 +9 
TOT=0-N 
DO 485 1[=2sNs2 
CUTHCHETH#XC1s 3) 
TOT#TOT+X (1519) 
AVC!T=CUT/TOT #60 +0 
TOT=TOT#GPSIZE 
ST=0 +0 
Be 510 1=2sNs2 
PST=X(15 AYPXC1=1479*100+ O+PST 
XSENSER OW 
PST=PST/¥S 
IF CITEST «NE» NSER) GO TO 565 
PRINT 530 
FORMAT C1H1) 
PRINT S41 
FORMAT (NUMER OF ts 2X» AVERAGE*, Oo» #AVERAGE#) 2X. #TOTALAD 
PPINT 546 
FORMAT (kSERVICE*s4Xs* STUDENT *s 2X9 *FACILITY*s 1X» *NUMSER*) 
PRINT 555 
FORMAT (¥FACILITIES#s 1X2 #UOITING*s 2X5 USEAGE*s 3X2 #STUDENTS*) 
PRINT 560 : 
FORMAT (12%, #TINERS 14%. #SERVICED®) 
PPINT 570, NSEPsAVCVT PST» TOT 
FORMAT (16sF12-2 22F9- 2) 


RETUPN ; ‘ 
EWD é mis fe F Be geraeMt od Dads, bes dea : Sate pe a eee 
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*- 600 SUBROUTINE SERV (X,1,SRATE)*. 
‘603 DIMENSION X(50210)_ 2" fee 
605 XC1,2.=XC122)4XCIo1) aa sic 
(610 IF (XC1,29-XC1,9)) 63556355615 
615 XC153)=0-0 / a 
620 XC196)2XC152) - 
625 XC1,5)=%C156)-%C159) . eo 
630 GO TO 650 . ee 
635 XC1s3)=XC1s9)-X(152) 
640 XC1,6)=XC129) 
645 X(195)=0-0 : ; 
650 CALL RAISE (XC1,4).SRATE) 
'655 XCls T=EXCL ss 6)4tXCI9 4) 
660 XC(1,9)=XCIs7) o * 
665 XC1,%)=XC1s7)- XC1s2) ne eo 
670 RETURN . og tee 
675 END 3 
680 SUBPOUTINE RAISE CERN» CR) 
685 AVIT=1-0/CR tee a 
690 R=RANFC-1) in oe Me 
695 ERNS=-AVIT#LOSFCR) i ee 
4 705 END. : 2 2 ange PRL 
715 ENDPROG — ; 
-, 900°20+-0210-021+0,20,9- ool. 0 
901 O- 020° 920°02029-0;0-0 - 
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ADULT RESOURCES FLOW (ARF-1) 


The Adult Resources Flow Model (ARF) was created as a tool to help 
explore the relationships between intended staff availability and the 
anticipated work to be done ina schol situation. The staff is described 
4a terms of type of person, number of each type, cost of each type, 
hours each type is available, and a description of the work each is to do 


in per cent of time devoted to each intended task for that type. Each 


, 


kind of work is described in terms of ri: 3*sand distribution of time 

for each occurrence, and occurrences as a function of number of students, 
number of staff members, and week in the school cycle. The Model is 
available in both a batch and time sharing version. The‘ batch version 

of the Model wil run for 20 weeks while the time sharing ceretce runs 
one week at a time. 

The Model creates, within the specified pevaneters, che sample workload 
for each kind of work for each week. This load may be contrasted with intended 
staff availability. 

| Several levels of analysis may be made: 


1. If the total hours required by the sample workload exceeds 
the total of staff hours available, then either: . 
a. A way has to be found to cut down the amount or duration 
of the work that needs to be done, or 
b. More staff time. ts needed. In this case: ; 
1) The number of staff members may be increased, and/or 
2) Staff members may be asked to work longer hours. 


2. If the hours needed for a particular type of work exceed the 

staff hours available for that type of work, then: °. . ; 

aw The requirements for that type of work may be reduced, or 

b, The allocation of time of staff competent to perform that type 

'. of work can be changed so that these staff members do less of 

something else, or 

c. Other types of staff members not originally intended to 
do the work in question can be allocated to it, or 

d. More staff members of a given type can be made available. 
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3. The input data represents the best guesses of project planners. 
If the ARF Model does not show a reasonable correspondence between 
staff and work, more thinking can be done about the nature of the 
educational experiences being planned, and about different ways of 
accomplishing the intended objectives. 


\ 


The major usefulness of the ARF Model has been to make certain assump- 
tions about a sinned educational program saa its staffing pattern more expli- 
cit. A secondary use, and the intended reason for creating the model, has 
beta to explore staffing patterns in relationship to the work implied in an 
educational program being planned. <A third use has been to define work sampling 
and time study research that might be done to provide better parameters for 
a model such as this. Such veecaee has merits also in helping provide insight 
_into how educational systems work at the human interaction level. 
Experiences with the ARF Model has indicated two potential nigbieas to be 
eonsideted, aside from the validity of input data. One is the inclusion of 
work such as "lunch" tnat should be uniformly diseribuced among 211 people and 
at rather limited times. Total hour requirements and availability for such 
work is nee as much of a guarantee of a "match", assuming the figures were about 
the same, as would be the case with both time flexibility and staff member 
flexibility. Two lunches at 4:00 p.m. for one staff member doesn't quite compen- 
sate for no lunch for another staff member or for not having lunch at noon! Thus, 
lunch is not a random phenomenon. 
A similar problem occurs if students replace staff in the ARF Model. It 
may not make much difference which staff. member gives a test, but it usually 
makes a lot of difference which student takes it. Here, again, a match between 


hour requirements and bour availability is much less reassuring than if the work 


were interchangeable among staff members. 
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If Sach staff and students (as students, not as helpers) are included 
in the same computer run, there is a potential problem in interpreting the 
staff and student roles, which may not be really inves clianpesniey: Nore 
student time available for an activity such as planning may not compensate 
for less staff time; more student need for such activities may even require 
aise staff time. Both stafé and students may need to be involved simultaneously, 
and the role of each may be quite different. 
Consequently, the recommended use of the ARF Model remains, as intended, 
‘to match staff availability with work requirements. If this model is used 
for studenta at ail, it should be used for students alone, and with the 
cautions noted for interpreting the results. The EDSIM models have been 
designed to investigate sender activities in a planned educational system. 
The following pages present a sample peel em, showing the computer 
output avaifable from; ARF-1 batch session. This problem shows that trial data from 
the. Fort Lincoln New Town Project in Washington D.C.; as with all such data, is 
not to be taken as representative of actual plans for that project. Similar 
runs have been made for some Centers at the University of Massachusetts, | 
School of Education. 
Pigive 1 displays all the staff data except work description. For this 
run, 35 regular and 50 student helper staff members provide 1900 hours of 
service per eace at a total annual cost of $341,600. No overtime work was 
included, but regular staff members could work 40 hours per week Galen is 
longer than most ee require their staff members to be on-site). 
Figure 2 describes the work anticipated for each type of staff member. 
It is read as follows: For staff type 1 (teacher stage 2-4 level 2) priority 
2 is work type 1 (counseling,prescribing) for about 20% of’ the staff aenbeme- tines: 


Priority 1 is work type 2 (planning), no less than 10 per cent af the time, but no 
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Figure 1 - Staff Description 
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more than 20 per cent, etc. lf only a minimum time’ (MI) is given, this is 
treated as an average. If both a aman and a maximum time’ (MA) is given, 
the intent is to provide stricter limits. Had any of the work esciacucaes 
‘added up to more than 100% of a staff member's time, an “error note" to this 
effect would have been printed. Figure 2 also indicates that work type it 

is highest priority for staff types 3 and 4, and lowest priority for staff 

° types 12 and 13. . : . 

Figure 3 summarizes the staff hours available for various types of work, 
from what are,.in effect, the job descriptions presented in Figure 2. Regular 
hours are calculated as the minimum per cent times the hours available times the 
number of staff members; extra eeeier hours are calculated as the difference 
between sania and minimum per cent, where both are given, times the hours 
available times the number of staff wexbare. Secauiae of typicaj. leeway in 
describing a staff job, the hours indicated in this table may add up to more 
than the total hours available as shown in Figure 1. If this should occur, it 


J 


means that once some of the regular extra hours have been used, other ailoca- 


\ 
\ 


_tions in this category cannot be used. The data shown adds up to less than the 
1900 hours available, and hence all inaiwavad Aoues may be utilized. 
In effeccr, Figure 3 indicates a range of hours available for a work 
activity, if job descriptions are followed. For work type 2, planning, 74 
-hours per week are regularly available, with 108 more hours available (or a 
total of 182 hours) if the upper limits of staff availability are used. These 
hours represent all staff members, not just those for whom this type of worl: is 
a high priority. However, if a staff member does not have this type of work in 
his job descriprion at all, or availability dae not show in the hours available 


for this type of work. 


(<) 


ERIC 


‘te @ 


ane | en el 7-5 2 


tacos "Cake. 2 Ger = 
ee Pe ge ore a 
= iesles Satinineaceieeesth et) O76 a cea Ti Se tN Q1Wwadvoyv BNI ST hNaans 
0'0 ‘ofat 0*0 u* HE PasTG 
pers oeee eft © Dee —0'R6 er 7 ey ; sarind ee 
0'g v9, 0°06 Uc ep NOTIVevdded SIVIMaLvy 
ia ah" Deelah —3 210 bth ON WE i ONTQHOURe/ON {MOIS 
o*o 9'92 079 Z° cSt - INTESAL 
a <0°0: OP “INIA SUIS Na 
0*0 z'¢2 00 g* tt ALINGHHOD * SIVauvd 
eee =6040 on 040... eet NOTLSGNYULSVE anges 
00 6°n 9°90 e* e727 DyTNILAs 
_. a 0'e0T O79. tif og INDY Ia 
0'0 —ofn _ na U° vet ONIGINOSAMd S9AT Tae 
nite BEND ee Y WOM. +. CHRON. SS BOON 8: 
sunox Vala ata YaAD “yy Ingesy “MOM 40 4dAL 33 3tMLIL 


“OM save Yy0m. 40 Adal 403 31a Ay 


wa a ne. ee ee 


ANd SHnCn 


SeSTyLOlene 


Qo. 
ERIC 


FE 


t é 


.Figure 4 summarizes the input data for work occurrences. For example, 
work type 8, Parents and community work, has a relative priority of 4 (net 
currently used by ARF-1 for calculations), time distribution type 3 (esebneacial 
decay; most occurrences will be towards the short end of the range of time), a a 
time range of .1 to .3 hours (6 to 18 minutes), and will occur, on the average, 
-l times per student ‘per week plus 1.0 times per faculty member per week. 
For the indicated 700 students and 35 faculty mehbers, then, a normal expec- 
' tation of such work occurrences would be 105 times per week. Had a constant 
term been shown, this would have been added to the occurrences due to students 
and faculty. In effect, this is the number of times the appropriate time dis- 
tribution will be ssnipled to get the total weekly hour denand for an average 
week. 


a 


1 unit above average, week 10 is 2 units above average (average is indicated by 5 


But not ali weeks are average. For work type 8 in Figure 4, week 9 is 


. in the profile by week; 4 indicates 1 unit more; 6, 1 unit less, etc.). The per 
Gene change column indicates that 1 unit in the srortie is worth a 300 per cent 
change. Consequently, week 9 will have not 105 occurrences, but 420 occurrences. 
Figure 5 shows, for each type of work, the eaicutated occurrences each week, 
and the result of sampling the indicated time distribution that number of times 
-as the hours needed to do that much work. Following corte eype 8, an average week 
had 105 awenvccueee (oc), taking pe cicen 13.9 and 15.4 hours (ER), while an 
extreme week with 735 occurrences ‘might take 100.7 hours of staff time. 
| Figure 5 also shows the hours total per week, which in all cases is less 


than the 1900 hours available. Hence, all the required work can get done (assum- 


ing the work description parameters represent reality), although some staff job 


description changes may appear desirable. 
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As an example, work type 8, requiring 100.7 hours in an extreme week, 
has a maximun of 34.8 hours available for it from the staff job descriptions. 
Were this an actual, operating school situation, the decision would have 
to reassign staff appropriately. By inexpensive computer simulation runs, 
the effects of possible staff reassignments may be explored. 

The following pages givé a summary of the input data, card layouts, 


operating instructions for the computer program, and the program listing. 
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Card Layouts 


Title Card 
Col. Contains 

1- 4 Number of Students 

5- 8 Number of staff 

9-10 Number of staff descriptor cards to be read (sets) 
11-12 Numher of work descriptor cards to be read 

13-20 unused 
21-44 Title (for page headings) 

Initial setting for random number generator 


45-53 


Staff Descriptor card 


Col. 


Contains 


Type number 

Number of staff members of this type 

Cost of 1 staff member of this type (no decimal point) 
Regular hours work for 1 staff member of this type (week) 
Overtime hours work (week) 

Priority for this type of staff member of first work type 
First work type for this staff type 

Average or minimum percent of time for this work (needed) 
Maximum percent for this work (optional) 


Provision for 8 more work assignments, same format, 
Starting in col. 22, 29, 36, 43, 50, 57, 64, 71 


Staff name card 


ERIC 


Contains 

Staff type number 

unused 

Description (name of staff type) 


Each of these cards follow the staff descriptor card 
for the same type of staff. 
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Work type card 


Col. Contains 
l- 2 Type number 
3 Relative priority of this type of ae (1 thru 9) 
4 Distribution type for this work (1 = Uniform, 2 = Normal,,. 
3 = Exponential) 
5- 6 Minimum time for an occurrence of this work (x.x hours) 
7- 8 Maximum time for an occurrence of this work (x.x hours) 
9~11 . Student load factor for this work (x.xx) 
12~14 Faculty load factor for this work (x.xx) 
15-17 Constant load factor for this work (x.xx) 
18-19 Percent change corresponding to 1 unit in week descriptor 
20 unused F 
21-40 20 week descriptors. (5 = normal, or load as calculated. 4 = 1 above 
{1 percent change unit] 6 = 1 below) 
41-55 unused 
56-79 label (name) for this work type 


Set Up of Source Decks 


1. Set up the source or object program deck according to the computer 
and operating system being used. 


2. Add a jobs card with Col. 1-3 = number of data sets to follow. 


_3. Add the number of data sets specified in the jobs card. Each data set 
consists of the following: ; 


a. Title card 


b. The number of staff descriptor/name card sets specified in the 
title card. Each set consists of: 


1) Staff descriptor card : 


2)’ Staff name card associated with preceding descriptor card 
4. If the computer or operating system being used requires an end of job 
or end of file card, add it. 
Program Notes: 

The following program listing is the CDC 3600 version used at the 
University of Massachusetts. The program structure was designed to provide 
for cubwistien of individual occurrences; ARF-1 uses betaie only, and hence 
the program as listed samples a distribution of the mean rather than the 


distribution of individual occurrences. 
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PROGRAM APF 


DIMENS TON Wome (1647297940015) eI TOTL(15) 
DIMENC TON NTYE CLE) eMCOSTOLS) SHORE C15) OVHP OTS) oe LP OLS 06%) oe ET O15 0%) 6 
TPCA CTE AM) OIA IE) 
DIVEN®S TON TES Ie) IOV eo eras Tater Cl set a TeEAC Ea sO Cl) 9 
PPCTCUTV ePFL E15 ern) 
DIMENSION TETLE C4) ce TACT R97 ce IQ 52Q) 
DIMFNS TON NR 629) s TALE C1564) eTALFR C1506) 
COMMON OelfOP kK eNTYP eSCOST HPS eOVHR se 1 Pal TePCAsPCHReIWTPEINTY e PAPAS 
TTeFAeVLD ee PCT ePFL se TITLE e ITOTL 
COMMON NPe TALE t's TALFR ee IP AIA 
INTEGER TITLE» TALE. TALFP é 
READ SAN, NUOR . 
90M FORMAT (17) 
“ O90 991 KJOP=1«NU0e8 
AO PL L=tels 
. OO Pl LEL=1.4 
PY TALFYCL eLL)=0 
NO PP L115 
MO PP Liste& 
22 TALFP(LeL1)=0 
NO PN 121415 
NTYPCr)=0 
NCOST(2)=0 
HOS( THAN 
OVHROT)=%eN 
IWTP CT y=0 
INTyY( 1 )s0 
ITOTL ¢1)=s0 
TOTYCT)=9 
PACT) =e" 
PROT) =%e9 
STOLEN eN 
FACT) HNN 
WLO(CT)=9,0 
PCTCT=O.N 
M0 18 J=149 
IP{TeJ)sn 
WT CPeJyeO 
TACT «J)=9 
IR ¢Le=0 
: PCACT «Jp =°,% 
1A PCRC1+I=HNeN 
DO APO Ja1epn 
PO PFLITeJ) 29,” 
READ 2eSTUeFAC ele Se TITLE SFT 
P FORMAT CEF4 ee PTA BX eGAG0F 900) 
IF (SET) 5056400 , 
GF Q7=1676 
CETS=TIMEF(Q7) 
@ Y=EPANFSETOSFT) 
400 PRINT 4%1te SFT¢TITLE 
401- FORMAT CIH1<e1* e®PANDOM NUMBER SFT TOf*eF 2009 e POX eSHFOR +8hGe//) 
.- 23 READ oN ae ee ee nn ae rn eaae ge ee emer ne te) Gala erage ONs zL 
1) e«PCRCKeL) oh =1 0%) o 
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4&4 FORMAT OTP. Pale se FFP ee MET 1a cer KF Pe?) ) 
PEAN Sek e ( TALFR Cia) a kk=H146) 
& FORMATCIA¢1% e6A6} 
l=f-1 
IF C1) 7e7e3 
700 14 T=101® 
TFINTYP(13314e14e9 
Q TOTEN.N 
MO 11 Leiee 
11 TOTHSTOT4OC ACT el) 
IFCTOTH105 9214017? 01? 
17? PRINT yRele ( TALEPCUL KK) ek K=1 06) oe TOT OTITLE 
13 FORMAT YEHOQFOD pesos TYPS 6+ 13ePH (eG6AGe 1H) oe 1 Xe 1LBHPFRCENT WORKS «FSe 
12¢1X%«4A6) 
14 CONTINUF 
THRAV=z0eN 
NTTYeE rd 
1ToT=c¢ 
THESHN.N 
TOVHR=NSN 
Pa PFAD Seis Wrmticie GOT Y ces SOAS) ate eThepsemie mney coer tse: 
VOPR L CK ob) eLa=1eF%) & (TALE (UK ekKK) ok h=1 04) . 
PE FORMAT CY PePL 1 ePF Pel o3RF Aer oF Perel XePNF Le Ne1L GX e4AG) = 
TF (PACK) = PR(K)) 903.902.6907 
90? Py = PA(K) 
PA(K) = PRK) 
PA(K) = PY 
903 JeJe1t _— 
IF (I) 2028474 ; . 
PR POINT POeTITLE 
29 FOPMATCIHI + 23¥«33HSUMMARY OF INPUT Earn oe FOR +4A6s/7/7) 
PRINT AleSTUeFAC . 
Bit FOOMAT CLHO OHS TUNE NTS = FQ aM el OHe FACIL TY SeF Ge Ne SS eS5S% 0 THESTAFF HO S/S 
1) ; 
PRINT 24 
RQ FORMATIRY eAHTYOF 6] OX VOHTYRPE NAME «Po eBHNUMMEL 6 3¥ eAHCOST oP Me LOHTOTA. 
PL COST ¢ 2X eSHHOURS eP¥ FAHOVER eZ) 
M0 40 WK=1015 
IF (INTYP UK) 9402400637 
37 ITOTL CK YENTYP(K)¥ENCOST (OK) 
XENTYP(K) 
TOVHR = TOVHR+OVHP (Kk ) #X . 
NTTYP=ENTTYP4+NTYP (CK) 
ITOTH=TTOT+1ITOTL IK) 
THES = THRS+HES (i) eX 
MO 2S L=169 
TA(K eh EPCA (Kel #1000 
35 TA(Kel J=PCR (Kel) F10Ne 
PPINT RB eke CTALEP UK eKK) aKKE 1 06). eNTYP (ie) sNCOST(K) eETOTL (K) sHOS (KC) ¢ 
‘AOVHR IK) 
36 FORMAT (704X017 0 2X16AG VAX 1 A9AX eI 5e2Xo 1746 7Xy FReOe4Xe F2e0) 
40 CONTINUF 
PRINT. 38«eNTTYP. IT TOT 
28 FORMAT (4 09X eOH¥ HH TOTAL Se BOX e171 NK oe THEGTT) 
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THRAV=THES+TOYHR 

PRINT 396 THES, TOVHP se THRAV 
BQ FORMATO 62% ePGH¥ERTOTAL HOURS AVATLAPLF= eFGeNeGH REG +eFG0e0.7H OVER 

1 meFG6eN) 

PRINT LAN TITLEIE 
YAN FORMAT C1H1 «40a PSHSTAFFE WORK ASSIGNMENT FOR se IXeGAGe//e1Xe GHTY 

1 902% e PRPR «1X ePHTY se 1K e PRM Te 1 Xe PHMA) ) 

AO TAS K214e1S 

IF CIPC Rel IIPS 1A IRA 


184 PRINT LEGeKe CIP C Ket ee IW OK eL) oe TACK eL) eI A(KeL) eLale9) 


IER FORMAT CS eT Xe TL AsOCT Me tHe e B13) «tHe 17)) 
185 CONTINUE 
PRINT 47 eTITL= 
42 FORMAT CIH?D el EX e23HHOURS AVAILARLE FOR TYPE OF WORK e«6X%14A6} 
POINT 44 . 
44 FORMAT CLHOCGHTYPFEs3XePIHTITLE OF TYPE OF YORK eBX se 7THPEGUL AReRXeQHOV 
1ER TIVE ee Xe LIHEXTOA HOURS «Ze BBX eSHHOIRG RX e SHHOLIRG 6 3% 0 THREGLIL AR e aX 
PSH OVFR) , 
TTLIHMeN 
TTLPS eM 
TTL BHC eo 
TTL42NeO 
DO S6 Ke1eif= 
THRS=9 et 
TOVHR=0e% 
THRSXHNe% 
TOVHE Y¥=EN.N 
MO FP Lapis 
XENTYP CL) 
NO ©P M=zt.9 
PFE CTYT (LM) 224 O85D 4 5 
49 THRS= THRS+PCA (Lem) FHRS(L) HX 
TOVHR= TOVHR+PCA(L eM) XOVHP (L) ¥X 
XLePCRIiLeM)—-PCA(L eM) 
IF CXL} ©2e%21404 
404 THPSX=T}9SX4+ XL #HPS(L) KX 
TOVHRX = TOVHE X4*L¥GVHP (IL) ¥X 
SP CONTINUE 
. IF (THES+THPS*} 66+56+54 
54 PRINT Sake (CTALEW CK KK) eKK=204) e THRSe TOVHR e THRSX*s TOVHRX 
55 FOPMATO1LXseT3Bea%e4AGelKeGF10el) 
TTLISTTLIF+THRS 
TTL?=TTLP+TOVHR 
TTL3=TTL34+THRSY 
TIL4=TTt4+TOVHRX 
56 CONTINUE 
PRINT 57 


67 FORMAT Cag¥ a Qyr cre cae rn ener ao--) 


PRINT ESHe TTL eTTLA ce TIL Ae TTLA 
BR FORMAT (6Xe L LHR E# TOTAL S——e 16% GF I0))) 
PRINT 198eTITLE 
TOR FORMATCIHL se PS¥e2LHOISTPIRUTIONS OF WORK TYPES FORe1X%*4A6e//) 
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PRINT 110 
1190 FOOMAT OCLs GHIIAmike . PX se BHOEFL e BX eGHD EST 1S%_ ESHLOAD Pipe herentrn cate a 
PRX ePHPRCOFILES eR6XsRHTITLE OF) 
PEINT 125 - 
1P5 FORMAT (1X se GHTYRE 0 2¥ e BHPRT + 3X1 GHTYPE 04% e GHRANGE 0 4X0 BHSTUs 4X e BHFAC 03 
P¥ eSHCONS Te 1X eGHCHANGF 66% e THRY WEEK «35% eSHWORK TYPE s/) 
DO 145 «o0=1.-15 
TE CIDOTV (KO) 714% 4145-130 
1390 PRINT 14% KN e TWTPIKO) s IDTY (KO) PACINO) ePRIKO) A STUKO) eFACKQ) e WLOCKQ) 
LePCTUKGQ) ee (PFL I(KOeL) eLet se PO) eC TALFUKOQ6LO} OLOQ=104) 
140 FOPMAT(C741XKe lee PC4OXe12) eOXeF Bel elHeeF Be} 302K eF 502} eK eF4e2eP%s 
LPOF AeA eh XV ANG) ; 
145 CONTINUE 
PRINT 155 
155 FORMAT C1Ke1H¥#eR (15% se 1H¥)) 
PEINT 70 ; . 
170 FOOMATCL///e PAX A TRHDISTRPIPUTION TYPES e/4/e 30K #1 = UNITFORM# O40 30% 0 
BP = NORVAL% e/e 30% e #3 = EXPONENTIAL*) 
PRINT 60-eTITLE 
60 FORMATCIH1e24X eP4HNFMAND FOR TYPE OF WOPK » #6XeAA6e//) 
NO 63 K=1016 
90 63 t=302F 
63 WORK (KeL E0200 


PRINT PP + 
BP FOPMATCIXs #WEFK 1 - 92 3 4 5 6 7 8 
$9 10 11 1? | 13,0 «14 15 16° 17 18 19 ? 


PX TOTAL ese PX eOHWORK TYPFe7) 
DO AN K=101% 
TTOT=N.O 
IF CIDTY CK) ANCA OBE 
66 XaSTleyXSTUFEA CH) HE ACELD CK) 
nO 79 L=147% 
NeX# (1 e+ (RB —-PEL I Ke pp EPCTOIK)) 
NPE (LIEN 
IF (N=30% EF 2eA706R 
6A A= PACK) 
Ac PR(K) 
MeTOTY(K) 
GO TO0?P1%.7504275) oM 
PIO FX = (A+A) 7200 
VARX = €(B=A)¥#2)/12.0 
_ GO TO PEN 
250 EX = (84A)/200 
VARX= (RA) /609 
GO TO PAN 
P75 EX =¢ (AA) #e20 +A) 
VARX = FREED 
PRO EX = N#FX 
VARX = N* VARY 
SIGMA =& SOQRTF(VARX) 
CALL NDISTCY «FX eSIGMA) 
WORK CF eL YEVORK CK el +Y 
GO TO Al 
69 IF CN} 79079070 
70 MslDTY(K) 
NO 78 MM=1,.N 


ERIC 2-1} 


GO TO C720 7577) aM 
73 CALL UND ISTCY PAK) aPRIK)) 


GO TO 7a 
7S A= PACK) ! 
R= PRK) 
FY = FAFA) PON 


SIGMVA=(FPLAYS/A, 
CALL NDTST(CY eK e SIGMA) 
GO TO 78 
77 EXC (PR—-Ay*#-e7P00) 
CALL FXPEXT(FKeY) 
Y=Y¥+A 
7A WORK Ce eL pEHNDK (ie eL +7 
Bl WORK ONGeL PSWOPK ( 1640eL)FEWORE (KeL) 
ABR TTOTHTTCT+WORK Cie) ‘ 
79 CONTINGUF 
PRINT Ar cert PRUE eves vies 104) 
AT FORMAT Oe LX eT Pe 2% eSAE) 
PPINT RS ANR 
AS FORMAT (1% «PHOCe 1Xe2NI6) 
IFC TTOTION.ION.FR . 
AQ PRINT BOs CwORC fel) sLeL«20) eTTOT 
ag FORMAT (IM*e@HHR s 1¥s20F Gel F Bel) 
90 CONTINUE | 
EN CONTINUE 
PRINT 100 
100 FORMAT CLM e THeABC ISK oe LH) OA O LX sSOHFX#TOTALS) 
PPINT 924 (YNOK (1TAsLIeh=alePOe?P) 
OP FOPMATI(F10—41eOF 1P 01) 
PRINT 24 60"COr(C1GeL) eLa2ePNeP) 
Ga FORMAT (4% e1°F 1201) 
901 CONTINUE 
CALL EXIT 
FND 
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SURROUTINE NDISTCYse¥MUe SIGMA) 
0=060 
NO 469% J=1412 
C=SDANF (1) 
490 D=0+S . 
Y= (MN—-Ge )¥STGMATXME! 
> RETURN 
END 
SUBROUTINE UND IST CY eAePR) 
Y=RANF (=1) 
Y=Y¥(R=AV+A 
RETURN 
FAs 


CURPOUTINE EXPEXT CFE e™) 
D=ERANF (=1) 
X%e-FXXLOGF (R) 

PETURN 

FND 
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Operating Instructions (Time Sharing Version) 


The Input Data for ARF-1 are: 


The following data must occur in the order specified, 


A. 


B, 


The run title. 32 or fewer characters, alphanumeric. 

Number of students and faculty for work occurrence calculations. 

Include a decimal point, and separate the two numbers by",". 

The number of staff descriptor lines which follow, 15 or fewer, no 

decimal point. 

That number of staff descriptor lines. Each line has the following ele- 

aenek whose correct placement is ceiereuie” 

1) line number - 1, 2, or 3 digits usually. 

2) 1 space 

3) 2-digit index to staff descriptor, followed by 1 space, 

4) 2-digit dudieater of the.number of people of this. type, followed 

by 1 space. 

5) 5-digit salary for 1 person of this type, followed by 1 space. 

6) 2-digit normal hours in the work week for this person, followed by 
1 space. 

7) 2-digit overtime hours in the work week available for this person, 
if needed, followed by 1 space. | 

8) 32 (or fewer) characters of descriptive information. 

There are no dented points in this data. Leading zeros are to be 

included for spacing purposes: e.g. 3 would be keyed as 03. 

The number of work descriptor jee which follow. 15 or fewer, no 

decimal point. 


That number of work descriptor lines. Each line has the following 


elements, whose correct placement is critical: 


220 
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1) 
2) 


4) 


5) 


6) 


7) 


8) 


9) 


10) 


11) 


Q 


ERIC 


. given constant. 


line number - as many digits as needed, but usually 1, 2, or 3. 


1 space 


2-digit index to work type descriptor, followed by 1 space. 


No decimal point. 


2-digit index ‘to type of distribution to be sampled, followed by 
1 sadee: 01 is ieee distribution; 

02 is normal distribution, and 

03 is exponential decay distribution. 
No decimal point. 
Minimum time for one occurrence of this type of work, in tenths of 
a time unit (hours), keyed as digit~decimai poiiné-dislt=anaces. 


3-position maximum time, as in 5 above, followed by 1 space. 


Multiplier for number of students to determine contribution of 


students to workload. In essence, this number is the number of 


times per week each student will require this kind of work. Format 
is digit-decimal point-2 digits-space. 


Multiplier for number of faculty. Four digits, decimal point, space 


‘as in 7 above. 


Constant to be added. Same format as in 7 above. 

Unit of change for this type of work, in same format as 7 above. 
This is really the fraction represented by 1 unit of change in the 
weekly profile. If the profile is 1.0 and the unit of change is 


0.50, there will be 50% more occurrences of this type of work than 


would be predicted from the number of students, faculty, arid the 


32 or fewer descriptive charactere to be printed whenever this type 


of work is referred to in the output. 
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The number of staff see Mesdeinuss lines which follow (15 or fewer), 
e-ch'of which may be split peveeda 2 computer lines, the number of work 
descriptions on the first line (9 or fewer), and the number of work 
descriptions on the second line (3 or fewer). O must be keyed if the 
second descriptor line does not occur. All staff types must Lave the 
same number of ddderinter lines. 3 numbers, separated by commas, no 
decimal points. 
The number of descriptor lines, or pairs of descriptor lines, indicated 
in G above. Each line has the following elements, whose correct 
placement is evi cheats 
1) line number - as many digits as necessary. 
2) 1 Space 
3) 2-digit staff type indicator, followed by 1 space. 
4) As many work descriptions as indicated in the second number in G 

above. Each work description is: ‘ 

a) 2-digit work type indicator, followed by 1 space. 

b) 2-digit minimum or average percent of this type of staff person's 

time to be spent on this “ype of work. 1 blank space. 
c) 2-digit~maximum percent (or 00 if b above is to be interpreted 
ee ; 
as average time) of time to be spent on this work, 1 space. 

The second line, if used, is in the same format. It will have a higher 
line number, the same staff type indicator, and the number of work 


descriptions called for by the 3rd number in G above. 


No decimal points occur in this sub-file. 


ARF (Adult Resources Flow) Operating Instructions - time sharirg 
1. Fetch the program. FETCH ARF1 

2. Set the random number generator. You NAME ARF1 

may elect te do nothing, in which case 16 ISEED ~ 9574639672 
every run will use the same sequence of 


"random" 


numbers. Or, yor may put in a 
new seed and get a different sequence. 
You select a 9 or 10 digit number to put 
in as shown. 
3. Either fetch the data to be used, or FETCH ARFDATA 
create a named string containing the 
data files needed. or 
Check and edit your data as necessary NAME DATA 
before running. You may change any 1 TEST RUN FOR... 
line of data by merely keying another etc. 
line with the same line number. 
4. If necessary, reorder your strings so 
that the data string immediately follows 
the program. This will not normally be 
necessary if you fetched program and 
fetched or created data in order, but 
will be necessary if you want to run the 


program with more than 1 set of data. 


5. Give the run command. RUN ARF1 
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a 
The computer will ask if you want a new DO YOU WANT A NEW WEEK? 


week. Type YES if you do, NO to cnd the 
run. You may run as many weeks as you 
like ty simply answering YES each time 


the question is asked. 


The computer will ask if you want a new 
profile. You answer YES or NO, If NO, 
the existing profile will be used (and, 
initially, that will be all zero). 

If you answered YES in the previous step, 
key in the change factors, 1 at a time, 

as the computer asks for them. 15 will be 


asked for, even though some work types 


-are not in use. 


The run will stop when you answer NO to 
the question in step 6 above, You may 
also stop the program with CNTRL C, and 


may suppress printing with ESC (ALT). 
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DO YOU WANT A NEW PROFILE? 


2NO 


Figure 6 


NAMES 

1 ARF1 759 
2 ARFDATA 382 
RUN ARF1 

8K 


DATA FOR STSFF WORK, FLNT, 8-1-69 =“ 
STUDENTS=700., FACULTY=35. 


STAFF TYPE 4 NUMBER 


TEACHER STAGE 2-4 LEVEL 2 
TEACHER STAGE 1 LEVEL 2 
TEACHER COORDINATING LEVEL 3 
TEACHER NURSING LEVEL 3 
TEACHER RESOURCE CENTER LEVEL 3 
TEACHER GRAPHIC ARTS L&VEL 3 
TEACHER SHOP LEVEL 3 

TEACHER AV LEVEL 4 

TEACHER MUSIC LEVEL 4 

10 TEACHER PSYS ED LEVEL 4 

11 TEACHER LEVEL 4 

12 TEACHER-AIDE 

13. STUDENT HELPER - TUTOR 50 


WONKDAUEWNHE 
DAnHP HP HEE HEHE OAH DN 


fy 
i) 


TOTALS 85 


COST 


14900. 
14900. 
12500. 
12500. 
12500. 
12500. 
12500. 
8850. 
8850. 
8850. 
8850. 
5700. 
300. 


HOURS AVAILABLE FOR TYPES CF WORK, STAFF WORK, FLNT, 


TYPE OF WORK , REGHRS 


1 COUNSELING, PRESCRIBING 184.0 
2 PLANNING. 74.0 
3. TUTORING 372.2 
4 GROUP INSTRUCTION 188.8 
8 PARENTS AND COMMUNITY 11.6 
9 IN SERVICE TRAINING 70.0 
10 TESTING 152.2 
11 SCORING / RECORDING 111.0 
12 MATERIALS PREPARATION 42.0 
13. SUPPORTING DUTIES 86.0 
14 DISCIPLINE ; 0 
15 SUPERVISING ACADEMIC ACTIVITY 133.0 
' TOTALS " 1424.8 
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JA Fuistoxt Provided by ERIC 


OVHRS 


ooaoooooo0o0°oc0°o°o 


(>) 


TOTAL 


29800. 
14900. 
75000. 
12500. 
12500. 
12500. 
12500. 

8850. 

8850. 
17700. 
53100. 
68400. 
15000. 


341600. 
8-1-69 
EXREGH 


0 
108.0 


soa LON 
ooo frfongonooao 


SS 
Ld me OOF Rh 
wm 


i) 


HOURS OVER 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
40. 0 
10. 0 

1900. 0 

EXOVHR MAXHRS 
O 184.0 
0 182.0 
0 . 372.2 
O 188.8 
0 34.8 
0 70.0 
O 178.8. 
0 121.0 
O 126.4 
0 184.0 
0 18.0 
0 §6190.0 
0. 1850.0 


Figure 7 


WORK DESCRIPTORS FOR STAFF WORK, FLNT, 8-1~69 


WORK TYPE 


woakrwhnh-e 


10 
11 
12 
13 
14 
15 


DO 


COUNSELING, PRESCRIBING 
PLANNING 

TUTORING 

GROUP INSTRUCTION 
PARENTS AND COMMUNITY 
IN SERVICE TRAINING 
TESTING 

SCORING / RECORDING 
MATERIALS PREPARATION 
SUPPORTING ‘DUTIES 
DISCIPLINE 

‘SUPERVISING ACADEMIC ACTIVITY 


YOU WANT A NEW WEEK? 


?YES 


DO 


YOU WANT A NEW PROFILE? 


2NO 


DIST 


me WW po W et Ww Fe W Ww Ww 


RANGE 


el- “42 


-3~-1.0 
el- .3 
-4- .8 
el- .3 
-4-1.0 
4- .8 
O- .1 
-5-1.0 
3-1.5 


l- el 


~8-1.5 


‘DEMAND FOR WORK IN WEEK 1 STAFF WORK, FLNT, 8-1-69 


*% 
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WORK TYPE -OCCURS 
x 
1 COUNSELING, PRESCRIBING 1925 
2 PLANNING \L75 
3 TUTORING _ 1708 
4 GROUP INSTRUCTION _ 
8 PARENTS AND COMMUNITY 105 
9 IN SERVICE TRAINING 175 
10 TESTING : 297 
"11 SCORING / RECORDING 700 
12 MATERIALS PREPARATION 35 
13. SUPPORTING DUTIES 175 
14 DISCIPLINE 250 
15 SUPERVISING ACADEMIC ACTIVITY 105 
TOTAL 
DO YOU WANT A NEW WEEK? 
2YES 
DO YOU WANT A NEW PROFILE? 
2NO 
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HOURS 


224.0 
96.8 
224.1 
42.4 
15.7 
122.2 
143.0 
37.6 
20.7 
122.4 
28.0 
120.9 


1207.7 


CON 


fool Keke RoR i-Rok-o 


Figure 8 


DEMAND FOR WORK IN WEEK 2 STAFF WORK, FLNT, 8-1~-69 


WORK TYPE OCCURS HOURS 
1 COUNSELING, PRESCRIBING 1925 229.6 
2 PLANNING 175 96.3 
3 TUTORING 1708 229.4 
4 GROUP INSTRUCTION 70 42.3 
8 PARENTS. AND COMMUNITY 105 15.2 
9 IN SERVICE TRAINING 175 118.0 

10 TESTING 297 127.0 

11 SCORING / RECORDING 700 31.0 

12 MATERIALS PREPARATION 35 21.2 

13 SUPPORTING DUTIES 175 118.6 

14 DISCIPLINE 280 28.0 

15 SUPERVISING ACADEMIC ACTIVITY 105 119.8 

TOTAL 1176.5 


DO YOU WANT A NEW WEEK? 
TYES 


DO YOU WANT A NEW PROFILE? 
?NO 


DEMAND FOR WORK IN WEEK 3 STAFF WORK, FLNT, 8-1-69 


WORK TYPE OCCURS HOURS 
1 COUNSELING, PRESCRIBING 1925 237.7 
2 PLANNING 175 94.5 
3 TUTORING 1708 230.9 
4 GROUP INSTRUCTION 70 40.1 
8 PARENTS AND COMMUNITY | 105 13.7 
9 IN SERVICE TRAINING _ 175 119.5- 

106 TESTING — 297 144.2 

11 SCORING / RECORDING 700 39.2 

12 MATERIALS PREPARATION 35 23.4. 

13 SUPPORTING DUTIES 175 127.5 

14 DISCIPLINE 280 28.0 

15 SUPERVISING ACADEMIC ACTIVITY 105 120.5 

TOTAL 1219.2 
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Figure 9 


DO YOU WANT A NEW WEEK? 
?YES 

DO YOU WANT A NEW PROFILE? 
2NO : 


DEMAND FOR WORK IN WEEK 4 STAFF WORK, FLNT, 8-1-69 


WORK TYPE OCCURS HOURS 
1 COUNSELING, PRESCRIBING 1925 231.0 
2 PLANNING 175 108.1 
3 TUTORING 1708 230.7 
4 GROUP INSTRUCTION 70 . 41.5 

_8 PARENTS AND COMMUNITY 105 . 14.8 
9 IN SERVICE TRAINING 175 119.4 

10 TESTING 297 124.3 

11 SCORING / RECORDING . 700 33.9 

12 MATERIALS PREPARATION 35 26.2 

13 SUPPORTING DUTIES 175 132.2 

14 DISCIPLINE 280 28.0 

15 SUPERVISING ACADEMIC ACTIVITY 165 122.0 

TOTAL 1212.1 


DO YOU WANT A NEW WEEK? 
7NO 


TIME: 2.606 SEC. 
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55 


74 


100 
106 


115 


124 


162 


898 
905° 
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T.S. ARF 


Variables 


# of Students 

# of Faculty 

Title of Run 

# of Staff Types (# Descriptors) 

Total Hours Available (Staff) 

Total Overtime Hours Available (Staff) 
Total Staff Cost 

Total Number of Staff Members 

Staff Type Index Number 

Number of Staff Members of that type 
Cost of 1 Staff Member of that Type 

# Hours/Week that type of Staff Member Works 


' # Overtime Hours/Week that type of Staff Member Works 


Descriptive Title for that type of Staff Member 

# of Work Type Descriptors 

Work Type Index Number 

Time Distribution Type for that Work Descriptor 
(Uniform, Normal, Exponential Decay) 

Minimum Time Per Conta.i. for that type of Work 
(Nearest 1/10 hou! 

Maximum Time Per Contact for that type of Work 
(Nearest 1/10 hour) 

Number of Times Per Student for Weeks for-that type 
of work 

Number of Times Per Teacher/Faculty for Weeks for that 
type of work : 

Constant Demand for that type of Work Per Week 
(Note: Total Demand=ST*STU + FA*FAC + WLD) 
Fraction of Increase or Decrease in an Unusual Week 

Descriptive Title for that type of work 
# of Staff Work Descriptors (Job Descriptions) 


'# of Work Types on Ist Line of Description 


# of Work Types on 2nd Line of Description 
Index of lst Work Type on 2nd Line of Description 
Total # of Work Types/Staff Work Description 
Staff Type Index Number 
Work Type Index Number 
Minimum of Average % of Time Spent By that Staff Type 
on That Work Type 
Maximum %.of Time (If Zero, TMIN is Average, Not Minimum) 
Hours Available for that type of Work Table 
Total Regular Hours Available, Using Min. or Aver. Time 
Total Overtime Hours Available, Using Min, or Aver. Time 
Additional Reg. Hours Available, Using Max. Time 
Additional Overtime Hours Available, Using Max. Time 
Grand Total of Hours Available 
Total of All Hours Available for a Work Type 
Week Counter 
Console Response (Yes or No) 
Total Hours Required for Work that Week 


a 


229 


“ 


965, 975 


Q 
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Factor to Change Profile of Work Demand By 
(Work Needed = PCT*PFL* (Total Demand) 

Number of Occurrences = 

Mean of Total Time Distribution (Depends on Distribution 
Type) 

Variance of Mean of Total Time Distribution 

Std. Deviation of Mean of Total Time Distribution 

Sample from Normal Distribution WithEX & SIGMA as Parameters 


T.S. ARF ; 
Main Routine Logic: Initialization, Reading In and Displaying Data 


16-17 Set Random Number Generator Seed 
20-35 Set All Tables To 0.0 Initially 
40 Read Title For Run A 
45 Read Number of Students, Faculty For This Run 7 
50 Print Title, Number of Sudanese. Faculty ‘ 
55 Read in Number of Staff Descriptors ae 
61 Print Heading For Displaying Staff Descriptions 
. 64-70 Initialize Total Counters to Zero 
_72~90 Read In and Print Staff Descriptors; Total Hours, Costs, # Staff 
93 Print Teiais for Staff Descriptors 
100 Read in Number of Work Descriptors 
104-106 Read in Work Descriptors 
115 Read in Number of Staff-Work (Job) Descripters, Line Info 
120-143 Read in Staff-Work Descriptors and Calculate Hours Available 
150-178 Print Hours Available for Each Type of Hox and Totals 


200-214 Print Work Descriptors>To Week Simulator Coop (899) 
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T.S. ARF 
Week Simulator Loop Logic 


899 Step Week Counter ——— ————————________________, 


900-910 Is a New Week Wanted?—No—t Done(1000) 


If "yes" 
915-922 Is a New Profile Wanted? 


If "yes" 
924-930 Input a New Profile 


If "No! 


932-935 Print a aa for Week's Output 


940-995 For Each Work Type: 


943-948 Calculate Number of Occurrences -- 


952-986 Calculate Mean and Variance for Total T’me Distribution 
987 ‘Take 1 Random Sample from That Distribution 
990-993 Print Results; Step Total Counter. 


996 Print Total Time Requirements for Week 


T.S. ARF 


Logic of Subroutine NDist 


Le 


Y = Random Normal Variate from XM, otene 


XM = Mean of Distribution 


‘SIGMA = Standard Deviation of Distribution 
D = Accumulator for 12 Random Uniform (0.1) Numbers ; 


S = sample from Uniform (0,1) 


1025 Set D to Zero 


\ 


1030-1040 Get 12 Uniform Random (0,1) Numbers and Sum in D 


1045 Get Y with Desired Mean and Std. Deviation 


Using Fact That 


Note: Distribution of MEANS of al 


original distribution mean. 


i. 


any distribution is NORMAL about 
us for total times it is acceptable 


to sample a normal distribution regardless of shape of original 


distribution. 
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Figure 10 
| FETCH ARFDATA 
OK. DATE FILED: 


LIST 


INPUT IS FORMATTED, NOT FREEFIELD. 


10/06/70. 


STAFF WORK, FLNT, 8~1-69 


700.0, 35.0 


2 

3 : 
4 01 02 14900 

5 02 01 14900 

6 03 06 12500 

7 04 01 12500 

8 05 O01 12500 

9 06 O01 12500 

10 07 01 12500 
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NADOO000 
FONONON 
ONONONHO 
OFOrFOFRO 
WUWUwD uw 
NONOCNHNON 
HNWUHGIUKNIH 
OrFOFOFO 
G000000 
oo oOo oO 
S&S fF fF & 


Oo 
wm 
=) 
Oo 
Oo 
uo 
=) 
wa 
oO 
Oo 
oO 
> 


TEACHER STAGE 2-4 LEVEL 2 
TEACHER STAGE 1 LEVEL 2 
TEACHER COORDINATING LEVEL 3 
TEACHER NURSING LEVEL 3 
TEACHER RESOURCE CENTER LEVEL 3 
TEACHER GRAPHIC ARTS LEVEL 3 
TEACHER SHOP LEVEL 3 
TEACHER AV LEVEL 4 
TEACHER MUSIC LEVEL 4 
TEACHER PHYS ED LEVEL 4 
TEACHER LEVEL 4 
TEACHER~AIDE 
STUDENT HELPER — TUTOR 


0.00 0.00 0.00 COUNSELING, PRESCRIBING 
5.00 0.00 0.50. PLANNING 

0.00 0.00 0.50 ° TUTORING . 
0.00 0.00 0.50 GROUP INSTRUCTION 

1.00 0.00 3.00 PARENTS AND COMMUNITY 

5.00 0.00 0.00 IN SERVICE TRAINING 

0.50 0.00 0.30 TESTING 

0.00 0.00 0.30 SCORING / RECORDING 

1.00 0.00 1.00 MATERIALS PREPARATION 

5.00 0.00 0.50 SUPPORTING DUTIES 

4.00 0.00 0.00 DISCIPLINE : 

3.00 0.00 0.50 SUPERVISING ACADEMIC ACTIVITY 


20 00 08 O01 03 O09 O5 
20 00 08 O01 03 O09 O05 
20 00 08 O01 03 O09 O05 
20 00 08 01 03 09 O05 


10 00 08 O01 03 O09 O5 


05 10 03 09 00° 04 13 00 08 O01 03 O9 O5 
05 10 03 22 00 04 20 00 08 O01 03 O09 O5 
05 10 03 10 00 04 20 00 08 O01 03 09 O5 
05 10 03 14 00 04 33 00 08 O1 03 O09 O5 
05 10 03 09 00 04 40 00 08 O1 03 O09 05 
05 10 03 24 00. 04 16 00 09 05 00 10 10 
(22 00 08 01 03 09 05 00 10 20 00 11 20 


15 00 10 05 10 11 03 O05 14 00 02 15 07 


00 


00 


00 


00 


00 . 


00 


00 


00 


00 


00 


00 


00 
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S PROGRAM ARF 
18 DIMENSION AVL CUSs4),TTC4)sIVTCIS A), TFT C4) HRS C15), OVHRCIS) 
ll DIMENSION PFLCi5) 
le DIMENSION ITYP€12),THINC1I2)4TXAXC12) 
IS DIMENSION TUTYC15),PAC15),PB061595STC1S)sFACI5),WLDE15),°CTC15) 
16 ISESD=74935731957 
17 CALL RANFSETCISZED) 
26 D0 35) 1=1,15 
-21 HRS(1)=3.9 

22 OVAR(1)=3.4 : 
23 IDTYCI)=3 

24 PACI)=380-9 

25 PHC1)=3.4 

26 ST(1)=9-3 

27 FACT) =0-9 

28 WLDOCI)=U.¢g 

29 PCTC1 R45 

35 PFLC1)=3e9 

33 DO 35 JHl.,.4 

3S AVLCI, J) =H0-98 

43 READ Ais IT 

41 FORMAT ¢€S,4A48) 

&S READ, STU, FAC \ 
‘$8 PRINT 51, IT, STUs FAC © 

Sh FORMAT (/47,*DATA FOR meanea eset DENTS=%*, Fae, ky FACULTYS4, 
52C F339) 
SS READ, IN 
63 IF CINeLEeJ) GO TO 160. 
61 PRINT 62 

62 FORMAT €7/7,*STAFF TYPE*, 26X45 *NUNBER, 3X. *COST TOTAL*, 
63C 3%,*hOURS GVEN*s/) 

64 THRS=Z ed 

66 TOVHR=0-3 

68 TC=4ed 

723 WT=2 

72 DO 94) THlsil: 

74 READ Te Ks Ne Cains Ci) sOVHHCKD » IFT ; 

75 FORUAT CSelusideF6< Je 2r3e3e LK 4A) 

76 X=N 

77) THRS=STHNS 4HRS CT) *x 

78 TOVEHR=STOVES f4OVil C1) eX 

84 CT=C*x 

81 TC=TC+CT 

Be NTHNT4#n 

66 PRIGT 875 He TFT sts Cs CTs His Cx sCVaRCK) 
OT FORMAT CIiMs les eMatdva lus ck SeUaF Se Sa F 50d) 

SS ito Cyd Sat Ci orn , 

&9 OVID Ou! 1iCi0) as 

3 COnNTIIVE 

93 PRINT 9450Ts TOs THRSsTOVER 

94 FORMAT  ’e3Ks *TOTALS 45 coxa lost Xa eFG eds F505) 

4d READ, 11) 

lge IF (IN eLee J)? GO TO Isde 


ERIC | | | 2 = 34 


104 DO 136) l=1sIN 
196 READ 138,K, 1LDTY CK) sPACK) »PBCK) » ST CK) »FACK) sWLD(K) »PCT CK)» 
1O7C ClUTC Kad} ,gz1,4) 
108 FORMAT (Ss2T3,2F4e1,4F5e2,1X24A8) - 
115 READ, INJNIL,N2 
116 N3=N1+41 
$17 N&=NLeN2 
116 IF CINeLE.2) GO TO 898 
123 DO 143) I=1,IN 
124 READ 125,K, CITYP CJ) -THIN GU s TXAX CU) sJBLNI) 
125 FORMAT (5,13,6(13,2F3-8)) 
126 IF (N2 eLee 3) GO TO 131 . 
128 READ 125,K, CI TYPOS) sTMINGJ)STXAXCS) SENS, NAD 
131 D0 t42 NMel,N4 
133 LeITYPC¢N) 
135 IF (L «LE. @) GO TO 142 : 
197 AVL(Ls 1) HAVL CLs 1) + THIN CH) €HRSCK)/130 02 
136 AVL(Ls 2) =AVLOL, 2) 4 THIN CH) HOVHRCKI7 13228 
139 IF (TXAK(M)«LE.3.3) GO TO 142 
143, AVL. 3 SAVL CLs 3) + CTXAX CH) TMI C14) HRS (KI/15908 | 
141 AVLOL24) =AVL OLS 4) + CTXAX CH) © TMIN CX) )®OVERCK) 12903 
142 CONTINUE . 
143 CONTINUE : 
153 PRINT 151. IT ; 
“451 FORMAT €//,*HOURS AVAILABLE FOR TYPES OF WORK, *.4AS) 
152 PRINT 153 
153 FORMATC/s4TYPE OF WORK*,25X, *REGHRS OVHRS EXREGH EXOVHR*, 
$540 * HAXNHNS*) 
(155 TOTI]=4.2 
156 TOT2=3.3 
157 TOT3=3.3 
158 TOT4=5.¥ 
159 GTCT=3.3 ; 
162 DO 175) f=lstS 
162 GHAVLCI, 1 +4VL01,2) 4AVLO143)+AVL C154) 
163 GTOT=GTOT+4é - ie 
164 IF (GeGTecde2) GI TO 166 
165 IF CIDTYC1)eSGe5) GO TO 175 
166 TOTI=TOTI+AVL¢1,1) 
168 TOT2=TOT2+AVL( 1,2) 
169 TOT3=TOT3+4AVL(1,3) 
173 --TOT4=TOTS+aVL61,4) 
172 PRINT 17351, CIVTC1 sd) odHlo4)5 CAVL 14d) oJ =12490G 
173 FORMAT C14s12,2N, 4084557. 1> 
475 CONTINVe 
177 PRINT 17% TOT sTOT ZS sTOT3,TOT As GTOT 
W7G FORMAT €/a5%5 *TOT ALS RC CENS SFI 01) 
239 PINT Silly IF. 
Zo) FosuaAT €/4//,8204K DESCRIPTONS FOU, 4A8) 
2393 PALIT 224 ‘ —_ 
284 FORMAT C/o *20RK TYPE*,26%5*vDIST RANGE*,axKe*STU FAC COllx, 


Qo. | 
ERIC * an \ 


2950 * CHG*,/) 

237 59 214 J=1,15 

229 IF CIDTYC1)-£9e3) GO TO 214 

211 PRINT 2h3sls,CivT Cle dd sJ= toads IDTYCL) sPACL) sPBCL) oST(L) oFACID» 
2ieC YLDCIDsPCTCI) 


213 
214 
898 
899 
932 
921 
925 
9123 
912 
915 
916 
928 
922 
924 
925 
927 
924 
929 
932 
932 
93% 
934 
935 
942 
941 
942 
943 
945 
948 
952 
952 
' 985 
960 
962 
965 


ERIC | 2 - 36 


FORMAT C1Xs1T2,2X% s4Adsl202XeoF Sela lites F301) s2Xe4FS5.2) 
CONTINUE 

Ne2 

Nenel 

PRINT 931 

FORMAT ¢€/.*D0 YOU WANT S&S NEW WEEK? *) 

INPUT. 

IF (4M oN&e SHYES > GO TO*!BIdS3 

TTOT=3.8 

PRINT 916 

FORHAT €/7.*D0 YOU WANT A NEW PROFILE? *) 

INPUTs MM 

IF (M .NEe BHYES > GO TO 932 

PRINT 925 : . 
FORMAT ¢€/7,*TYPE IN CHANGE FACTORSs F FORMAT.» | AT A TIME*) 
vO 938 T=1,15 

PRINT 929,1 

FORMAT ¢€1%,12) 

INPUT, PFLCI) 

PRINT 933sit.1T 

FORMAT C/s*0eMAND FOR WORK IN WEEK *€,1252Xs4A8) 
PRINT 935 


FORMAT €/o8#07O0RK TYPE *,27% 5 xOCCURS &s 3% 5 *HOURS Hs / } 


DO 995 1=1,15 

IF CIOTYCI)sLE:2) GO TO 995 
IF CIDTY¢1).GT.3) GO TO 995 
H=IDT¥CL) 

X=ST CL) #STU+FACL) AFACHULDCI) 
NOC=X*(1-0+PFLCi)*PCTCI)) 

IF (NCC ».LE. 23 GO TO 995 
GO TU (955,965,975), i’ 
EX=(PACL) #PC1)2/E05 

VARK2 COPGCL) =PACL) «#2971208 
SO TO 985 
EX=CPACID*PBCL)I/2¢ 

VARKS (PS pes a 

GO TO 960 

EX= (PECL) “PACI) 2 *3e204PAC1) 
VAN EEX #2 

Y=eNoc 


ene YER 


JAD SYRUP case 


SIGs Suet OUsate) 
GALL UOIST CYs oh sy SlGluid 


<4 


993 TTOT=TTOT+Y 

992 PRINT 994s1,.CIVTCls Jd) sJ2is4)sNOCSY 
994 FORMAT (1Ks12,2X,4A6 0 155F901) 
995 CONTINUs 

$96 PRINT 997.,TTOT 

997 FORMAT €/203X%.*«TOTAL*,s 34X5F901) 
$98 GO TO &99 

1332 END 

1820 SUBROUTINE NDIST CY.XM,SIGMA) 
1225 D=e.-0 

1938 DO 1843 Jelsle 

1835 S=RANFC-1) 

1840 D=D+4S 

1345 Y=(€D=-669)*SIGMA + XM 

138539 RETURN 

1055 END 

1362 ENDP20G 
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EDSIM I 


The EDSIM Tmodel is the first attempt to follow the progress 
of individual students through a new, individualized program. The 
relatively simple level of operation is very appropriate for the 
early stages of program planning, when detailed data is not available, 
and when initial concepts and assumptions are readily modified. 

The major variable considered is time. The model traces a 
specified number of students through a specified number of randomly- — 
selected instructional events in each of several pedagogical areas. 
From input data about each event, a tabulatien is made of the follow- 
ing: 

a. Student time to completion of program, in event-hours. 

Real time, of course, would be quite different, depending 
on ability to schedule events a student needs and on his 
willingness to put in varying numbers of hours per day. 


b. Student time in each pedagogical area, in event-hours. 


c. Relative demands for different types of events in different 


pedagogical areas. 
: ’ 


The operation of EDSIM I is best explained through examination 


of the output it produces. 


lenis model was developed as part of the Model Elementary Teacher 
Educatior, Project at the University of Massachusetts. Reports of the 


Project are available through ERIC as follows: 
"A Feasibility Study on the METEP", Phase II, Vol 1. Ed 043 - 582. 
“A Feasibility Study on the METEP", Phase II, Vol. Il. Final 


Report. Ed 043 - 583. . \ 
: - “Summary: A Feasibility Study on the METEP", Phase TT. Final 


Report. Ed 043 - 584. 


ERIC : 3-1 


Computer Output number 1 displays the following: 


Run identification: title and number. (It becomes very easy 
to confuse the outputs from a number of different runs.) 


Number of students in each profile (input data). 
Number of profiles in this run (input data). 


The probabilities of passing pre-tests and post-tests in 
each pedagogical area (input data). 


A profile such as that shown in part for the Human Relations 


Specialist in the next output, is basically the number of performance 


criteria to be met in each pedagogical area. Specific performance 


criteria, and specific instructional alternatives to meet them, had 


not yet been designed when this model was created; hence the use of 


the number of criteria, and the distribution of instructional events. 


Computer Output number 2 shows the following: 


> 
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b. 


Indication of the specific profile for which the following 


data applies. 


The event type selection probabilities in each pedagogical 
area. These need not: be the same in each area, but happen 
to be for the run shown because of lack, at the time, of any 
better data to put in. 

The fraction of students passing various numbers of per- 
formance criteria by means of successfully taking a pre- 
test. This is created by sampling the given probability 
for passing a pre-test the number of times called for in 
the specific profile. Since this is a random sampling 

we expect fluctuation from run to run. One purpose of 
this model is to help give educators an idea of what 
variability might be expected. 


The fraction of students failing various numbers of ‘post- 
tests, and, hence, needing additional instruction, This is 
based on a random sampling of the post-test probability dis- 
tribution given. We expect, incidentally, that the more 
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DATA, DERIVED | FROM SAN PLES ol FOR HaRs. aus 


ot THE NUMBER OF STUDENTS © cr EACH ‘PROPICE 5 1 
a ae ©, THE NUMGE® OF PROFILES: FoR WATCH RESURTS WILE BE: 


f 


PRE_AND_ post ‘TEST PROBABIL | 


Z Fs 
a te ee ES a ee RS st Nama on Oe a a recent ee en 


i . 
rt re Ree ee a en eee me —— ri ti ASI | olenteamtanetanmeent Miata 


Heke fe BEHAVe ~ SCIe  LeARTS TH ~ ASET 
PRE 0608006050 06050 0,050 06050 0050 Het. 
0. $00” or 


ee Se LS NN 


“POST 0.900 06900 0.900 0.900 0.900 Ox 


rnc re a re A A 


a a | nn I Sa 


te ae ee © pee 


_.__Computer Output Number 2 _ a ee eae 
* SuTPuT STATISTICS FOR FRO PROF TL 


~ ee ee ee ~- Ha RELATIONS SPECIAL: 
~ i . : ye . . 


Pa) ee . ERECR cI 
eR, BEHAV. SCI. CARTS MAYH ASETH. SeSe FORUY 


PC - 50 50 20 40 #0 80” ae 80 
| ae ee evens type seveerion propa: 
Heh 1 PEHAYs eo _SCle _LeARTS MATH ASETH. SoS FORsl 
ET 6.750 04250 __06250.__0.250 0.250 "0,250 0-250 0,250 _ 
ET 2 0.200 0.2600 04206 04200 . 9,200 os 200  0+200 0,200 
— EY Re 150 OBO Oe THO 06150 081500 iso O6i50 0.150 
EY 4 0.160. 0c100 Oc}00 0,}00 OclM0 0,100 06100 0.2100 
—— ETS 100 0100 GOL 2.06100 0-100 0.100 00100 0, 100 
ET 6 0.080 0,080 G08 G.560 6.050 0,080 0.080 0,080 
a EY 0 95.0.__ 0.050 ___ 0.0590. 0.05 10. __0:050, ——9-050__ 0.050. 0. O50 
EY 8 0.050 0.050 06050 0,050 0,050 0,050 0.050 0,050 
E790 OO 0,010__ _0-010_-_ 0 1010" 0.0) 0. 0.010 0.010 0,910 
"  ETLO 0.010 OcO10 04010 0,020 ; Oc010 0.010 ~~ 0¢010 0,016 


rn AR RR RE A A 


oS ete antbomts edwin cee ates PERCENTAGES ¢ OF STUDENTS | PASSING r 
PERCENT 7 
is: renee eens eek a 


hk. OEAVS 0 SCle—~)DouL Le ARTS. rath Se Sess) PCT. 


AY CEAST IT 06573 OLGTS” 0.62937 0.520 wre e320 O6kOS” Oe Sat 
_ATLEAST._2. Ov173_0¢253 0,093 _ 02107 0.053 0.093 0.057 99083 
AT LEAST 3 0.053. 0,060 0.000 06.000 0,000. Os 013. 0-000 0.600 
ATLEAST J = 904027 069900__O,090, 0. OOO Q. N00 ¢ Oc 000 Oe 000 OG. 000. 
AY LEAS 0.000 0.000 0,000 0.000 0.000 0,000 0.002 (,000 

LAT. LEAST. 


0, 000_..02000..._ 0,000. 0,.000___0,000__G,900___0.000 __ 0.000. 
AT LEAST 


5 
oe 2 
7 0.000 0.000 0,000 0.000 0,000 0,000 OrG00 0.699 
_AT LEAST. 6. 0.009 __0.069._..00.090___0+G90__0<.000_ 0.900 0.000 02094 - 
AT LEAST 9. 9.000 0.000 0,.g00 0.090 0,000 0e000  Or000 0,000 
—AL- LEAST_1O_ 0-000 ___0,000_ 0.900 __ 0.090 | 02900 02000 90000 _ Or 000 


___ PERCENT 
mee 


ATLEAST 16090, —ye000 0.950 37.000 0,960 0,987 0.933 0. O47 
AY Least 2 1000 ~O.997  OLGIS (0.973 R760 ~ Oc 8Y2™ Oe 107 — OLbo? 
AT LEAST — 3. 1,090 06987 0.64460 0,857 . 613 O.555 O638% O,oGT 
Av t AST 4 > 


PEACKNTRGES OF “STUDENTS © EMIS “F 


wHeRe SENHA. SCTe Le ARTS MATH ASEYHe _ SiS e FoR eb 


p OCDE OeLYS 7 O,280 “UV OLTGO “OAT Olen Oceet Deed 
WAY EAST GS 04907 Oe8Y4 0,333 OeS73 | bs OfO O07 Oe an Gal td 
AY LEAST 6 Oe20 0.653 GeO80 "04293 0,053 06013 00060 9, C4u 
AT LEAST 7. 008573. 06680 0,077 Oc173 0,000. 0,000  -O.012 “CeG1S 
AT LEAST 8 | 04400 0,769 0.000 0,080 — 0.9007 70.000 0.000 rapneer 
AT LEAST 9. Oe2}3 Ath? 0,900 — 0,040 0.000 0,000 4,000  o,000 
AY ivacy “an * noarn S eA oe eens pe. ewieties? 7 do eae OO eS eee Sn.) neeees ae 


performance criteria there are to meet, the more likely it 
is that a student will fail occasionally on a random basis. 


An event type is specified by its probability of being selected 
and the length of time inhours required for its completion. Although 
it may be hypothesized in the real world that completion times, and 
probably the probability of event type selection, may be a function 
of student or pedagogical characteristics, no provision has been made 
in EDSIM I for such variability. 

Each student in a given profile starts with a given number of 
performance criteria to meet in each area. For each area in turn, 
the pre-test probability distribution is sampled; the number of 
performance criteria to be met in that area is. reduced by the number 
of pre-test successes. 7 

It is then assumed that each remaining performance criterion to 
be met will result in a demand for one instructional event. Further, 
the probability of failing the post-test is sampled the number of 
times indicated by this number of instructional events to be taken; 
eack failure results in the addition of one more instructional event 
to the number to be taken. 

The number of instructional events, thus adjusted by pre-test 
successes and post-test failures, is the number of times the event 
type distribution for the pédawopicat area is sampled to give a 


number of specific event types for the student. 


Computer Output number 3 shows the “actual” demand for each event . 
type by area, as “determined™ by the process described above. 
By summing the hours required for each selected event, the time. 


requirement for each student in each area is "determined". 
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DEMAND FOR EVENT — 


; i 
BEHAVe SCI e LeARTS__| MATH __A ASE TH Se 


Se 


| i Coenen, ||| eS tS ee |) Sr 744 375362. 377.40," 
ET 2 780 780 .306 ‘617 300 337 300 37: 
ET3_..._ _._ 585__ 5556232. 28 224 228 216. Bit 
ET 4 (382 388 172. 34) 175 146 180 Le 
€T.5____._ 403___ 373. 167.299 SAS 130 13) 
EY 6 . 343 287 107 261 108 116 129 a 
‘ET_7____ id 200. 8G 148_ 8} __ 16 87_ 15% 
EY 8 212 212 54 15} 78 81 82 7% ¥ 
ET 9 37 34 ‘5. = 28 280 16 10 16 3 


ET10  3T 6% 6. 35 ~—Clt—“‘i‘i Ly: 


_ sum! OF _ ADOVE. DEMAND + » BY 7 TYPE:_ 
oN ae 26 535) ar a 2059 


eS OE 
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Computer Output number 4 indicates: 


a. The maximum time for any student in this exercise to complete 
his work. This js in event~hours, not real time. 


b. The minimum time any student completed his work. 


c. The average time requirement. 


d. A histogram of completion times. 


e. The average time for this profile each student spends in each 
pedagogical area. The example shown, for a Human Relations 
specialist, indicates an unusual time commitment needed for 
Mathematics and Science. 


Experience with this model in the early development of the Model 


Elementary Teacher Education Project indicated the following: 


l. 


25 


5. 


Present academic programs have relatively little variability, 
and hence are trivial for purposes of simulation. — 


The probable effects of varying the pre-test and post-test 
probabilities were examined. For example, changing’ the probability 
of. passing a pre-test from .05 to .01 and that of a post-test _ 
from .90 to .85 will add 10% (or about 200 hours) to the time 
required to complete a program. 


The probable effects of changing the total number of performance 
criteria to be met were examined. For instance, changing the number 
of required performance criteria from 340 to 400 would add about 20% 
(or 400 hours) to the completion time, . 


It is difficult for program planners to specify operational details 
for, and to quantify, the proposed experiences, as indicated by the 
relatively uniform numbers appearing across areas in the data. 
Group concensus is not a substitute for detailed planning. 


In some cases, the perceptions of planners in different pedagogical 


areas differed markedly, and resulted in a potential program that 
would not mesh well for students. For instance, the output shown 

as Computer Output number 4 indicates an unduly long time commitment, 
at least in relation to other areas, in Mathematics and Science. 


The logic of the EDSIM I computer program, and detailed operating . 


instructions, are given on the following pages. 


> 


S 
ERIC 


ili 


Mathematics and Science areas, as shown on the following partial saraple output, 


has the student spent an unreasonable amount of time in these areas, 
! 
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Smee | we tet ee neee cee ee iad ee 
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,so,°-™ T1939: : 
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ee Cee ae See bee ee es 8 mere cee nen Oot e ee ete ees eee oe nt ee ee ne on ee ee te eee ee A 

* = Pea a 
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FIGURE l. 


BASIC FLOWCHART FOR FIRST STAGE MODEL 


Compute 
“Net PC 
in Area 


Get an 
Event Type 
for each 

PC 


—e. 


time in — 
this area 


== | phatism . 


vec 
a 


| go to A ) 


~COMMENTS- 


input data for a given run 


do the following for each profile 
in the run 


do the following for each student. 
in this profile 


do the following for each area 
in the profile . 


compute the net number of PC 


_the student must meet in the 


area 


| 


| 
Select an Event Type for each PC 


from the number and time of each 
Event Type, sum the time spent 
in the area 


sum the area times to get total 
Student time in this profile 


compute and print summary statistics 


see if another run is to be excuted 


INPUT DATA FOR EDSIM I 


ERIC 


Number of different profiles to be tested (13 or fewer) 
Number of students in each profile (same for all) 


Number of instructional event types available in each profile 
(same for all) . 


For each profile, the number of performance criteria to be met in 
each of up to 13 areas of instruction. - 


For each area of instruction: 

a. The prqdbability of passing a pre-test, and needifig no instruc- 
tional ‘event to satisfy one performance criterion (same for 
all critdria in an area). 

b. The probability of passing a post-test, and not needing a 
second instructional event to satisfy one performance criterion 


(same for all performance criteria in an area). * 


The time necessary to complete each instructional event type (re- 
gardless of area in which it occurs). 


For each area, the distribution of event types (probability of 
selecting each of the available event types to meet a performance 
criterion in that area for which a pre-test was not passed). 


Identifying comments (40 characters) for output. 
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EDSIM 1 


Input Formats, As the Data Deck Should be Submitted 


Parameter Card : 


COLUMN 


Profile Card 


(one per 


Q 


ERIC 


CONTAINS 


Number of students in run (S 9999) I Format 


Number of event types. (¢ 25) for before post-test distri- 
butions I Format . 


Some information for, event types for after post-test dis- 
tributions (usually the same as before post-test distri~ 
butions but could be different) 

Number of Profiles (413).I Format 


L or A for level of detail desired 


profile indicated on parameter card) 
. 5 
Numeration (if operated from detail of level would be 1; 
if operated from detail of A (area) would ould be number of 
‘ skills (objectives) in the unit. 
Place, Value 
Addition 
Subtraction 
Multiplication 
Division 
Combination of Processes 
Fractions 


Money 


Time 


3-11 


COLUMN 


51-55 


6-60 


61-65 


’ CONTAINS 


Systems of Measurement 
Geometry 


Special Topics .. 


Pretest Probability Card 


(one card required) 


1-5 


6-10 
to 
61-65 


Probability of passing a pretest for numeration 


Some information for other 12 areas listed on Profile . 
Card ; 


Post-Test Probability Card 
(one card required) 


1-5 


6-10 
' to 
61-65 


Probability of passing a post-test for numeration 


Some information for other 12 areas on Profile Card’ 


Event Type Time Cards 


(S cards are required, even if blank) 


1-5 


6-10 © 


11-15 
16-20 


21-25 


r«) 
ERIC 


on subsequent card: 


Time in hours to complete event type 1. (6, 11, 16, 21) 


Time in hours to complete event type 2 (7, 12, 17, 22) 
Time in hours to complete event type 3 (8, 13, YB, 23) 
Time in hours to complete event type 4 (9, 14, 19, 24) 
Time in hours to complete event type 5 (10, 15, 20, 25) 


All read as F 5.0, but decimal point may be included to 
give fractional hours. 


3-12 , 


Event Type Distribution Cards 
(13 cards required, 1 per area, in order) 


COLUMN CONTAINS 
1-3 Selection Probability, event type l 
4-6 Selection Frobability, event type 2 
73-75 Selection Probability, event type 3 on through 


Selection Probability, event type 25. 


All read as F 3.0; must be keyed as xx 


More than one set of data may be submitted at a time. The 


program will operate until an end of file condition is encountered. 


rey 3-13 


ERIC 


Tre “WORTRAN formats for each card are: 


BASIC NUMP (314) 

IDENT (5a8) 

PCINA (13F5.0) 
PRE {13F5.0) 
POST (1375.0) 
B.T, TIMES (5F5.0) 
E.7,-DIst (25F3.0) 


S“enevent tyre selesticon :recs./ $) 


ry 
~ 


s— number of students, ETs, profiles 


(1) one card for each profile being considered 
(2) five cards total, all must be included-even if siank 


(3) 15 cards, one for each area 


(<) 


ERIC ; 3-14 


ano 


15 


16 


17 
17 


PROGRAM FOSI™] 


COMMON /A7 PCINACL 2013), APRE(133« APOST(13). TPCINA (13)% 
IP456(13010)6 FAIL (13610)< BCUM(13.25)6 ETSUM(13.25). NOET, 


1SCUM( 13625) «NO2ET | 


OIMENSION FTIME (C295) s ETOIST(13e25) «.TSUM613) e TMEANC IS) 


OIMENSION ALOCKC10) eCOUNT 0610) eFRON610)eTOC10) 
OIMENSTION CEM(13e25)¢ TOEM(2D)6 wORDC1O) 
OIMENSION PERRPAS(13e10). PERFAIL( 12619) 
OIMENSION OTLE (2065) ef TNIST2613+025) 
OIMENSICN) KFO(13).KPD¢(13) 

INTEGFR DEF. PROFILE ePEECFIEs AREAS 
INTEGER PROLIM 

FAKE = RNOQG(1) 

RUN = eC 

READ PARAVETERS FOR THIS RUN 

READ 201e!ISTUN«NOET eNOZET ePRCLIM.DEF 

IF CEOF .60) 800.4 

READ IN NEW VALUES 

CONT INUE 

CALL OEFINE (CEFF. PROF ILE,PEECEE AREAS) 
RUN = RUN + 1e s KP = 0 

STUD = 1IS7TUO 

READ 209. (wORD(U)eU=1-5) 

09 S Mtl.PROLIM 

READ 216. ( PTLE (Meld elele3) 

READ 2034 COPCINACT eS) Jel e113) ef =1 ePROLIM) 
READ 2034 (ACPF (J) eJ21e13) 

READ 203. (APOST( J) eJete13) 

READ 207. (CETIME (I) vJ=1625) 

RFAN POS. CHE TNIST Lede Jere 25pelebel7) 
READ 20Se ClETDIST2C eS) etl 25). el Bla l3) 
HEAOING OuTPUT : 

KMD = KP + 1 s ° PRINT 220.KP 

PRINT 302 

PRINT 304e RUN 

PRINT 3064 (wORD(J).J=1,.5) 

PRINT 308.PRCFILE.!STUO 

PRINT 310.PROFILE.PROLIM 

PRINT 312 

PRINT 23¢ 

POINT 32°4¢ CAPRE (9) eJ210139) 

PPIMY 3ISe (AMPOST(IJ)eUF1.13) 

CWEATE NEw CUMULATIVE EeTe O!ST- 

OO 17 Y2i1013 

OCUM(Jel)d = ErO!StT( Jel) 

SCUM( Jel DFETOIST2AC eld 

0a 15 }22.NOET 

OCUM( Yel) = Ocumeuelet) + ETOIST( el) 

OO 16 322.N0erT . 
SCUMO Jel) = SCUM(Jel=t) + ETDISTZ¢Uel1) 
00 17 f3teNory 

SCUM( Jel) = SCUMC Yel? =2COl 

OCUM( Sel) =OCUMC Seb I—eSO!l 

CONT INVE ; 

PRINT P67e © (NCUMEC FP eI ePEl cI 2eU=al MOFT) 
PRINT 271 

©0O 820m IPRCO=!I,PROLIM 

CLEAR AREA COUNTERS 

OO 11 21.13 s TSuMCc1)=*O64« 

OO if Jelelc ¢ PASS(I.J)=00 = FAIL (1,.J)206 


em ee eee te owe me ee 


‘a 3- 15 


an na 


12 
25 
c 
c 
27 
29 
c 
100 
c 
c 
43 
45 
47 
41 
c 
61 
¢ . 
65 
48 
¢ 
¢ 


CONT I NUE 

OO t2 Jake t3 

OO t2 1=1¢25 $ TOEM(T) = O,. 

OEM( Jel) = Ge . 

LQOP FOR NOs OF STUDENTS 

Of 160 Is=1eIsTud 

FOR EACH STUDENTe MARCH THROUGH THE MAZE 
SUBRCLTINE PTFST NOw HANDLES THE AREAS 
CALL PTESTCIPROeKFD «KPO? 

HAVING COMPLETED PRE/POSTe SAMPLE ETDIST 


‘CALL SAMPLE (KFO.KPD) 


STIME=O06¢ ; 
FIND STUDENT TIME AND STORE ON ORUM VIA LU It 
ON 29 121413 8S CONSTFOe S$ OO 27 J=leNOET 


-OEMEL eI) = DEM( S.J) + ETSUM(I.4) , 


CONST = CCNST + ETSUM(ITeu) * ETIMECYU) 
TSUMCD) = TSUMCT) + CONST 

STIME = STIME + CONST pee 
WRITE (11.6251) 1S¢ STIME . ase 
PRINT 253. IS\STIME : wivangeiee 
END ©-TUDENT LOOP . 

CONT INUE 

PROFILE STATISTICS SECTION 

REWIND 11 

SEARCH LIST TwC TIMES FOR HIGH AND LOw 

READ ¢114251) !0UMsHIGH 

ALOW = HIGH 

00 41 1=2.isTuUOd 

READ (11.251) LOUMsTEST 

IF CTESTe¢GTeHIGH) 43645 

HIGH F TEST 

GO TO 41 

IF CTEST eL Te ALCW) 47.41 

ALOW = TEST 

CONT INVE \ 


“REWIND 11 


SET UP INTERVALS FOR HISTOGRAM 
SUB = 10. 

TsyA = SUB 

TOIF = HIGH - ALOW 

A = TOIFsSUB + «9 

INC # A & AINC = INC | 
BLOCK¢1) = ALOW + AINC = Le 
ON 61 y=e2eTSuUA 

BI OCK(’) = BLOCK(U’-1) + AING 
PRINT 3Ole (BLOCKC I) sT=le1Q) 
FROM(1) = ALOyw 

TOC1) = ALOW + AINC 

00 65 ye2.1Sur 

FROM(J) = FROM( vel) + AINC+1.6 
TOGDJ) = TOCJ-1) + AINC41Le “eS 

00 48 K=1610 

COAUNTIK) = Oc 

T = Oe £ TSO = O5c 

REAO IN TIMES FOR HISTOGRAM AND MEAN=SD COMPUTATION 
OO S1 T=1e1STuoO 

DEAD C1be251) LOUM STINE 

COUNT THF TIMF JN A HEIST INTERVAL 

OO G2 y=t.TSuR 

JF ¢TIME sLE eRLOCKIV)) 63-62 
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62 


63 


51 


$3 


56 


67 


71 


70 


72 


_73 


CONTINUE 

COUNT{( J) = COUNT(Y) + Io 

ToT + TIME 

TSO = TSO + TIME#¥#2 

AMEAN = T/STUD 

DENOM = STUD * (STUD~-1e}j 

VAR = (STUD*#TSO - T##2)/70ENCM 
SO = SORT( VAR) . 
00 53 yrle13 

TMEAN(J)= TSUM( JIS STUD-PASS(Ue1)? 
00 S6 J=1.NOET 

OO S56 L=1e13 

TOEM(¥) = TOEM{V) + DEMiLeJ) 


COMPUTE PASS 7 FAIL OCCURANCES FCR 1 TO 10 TIMES 


BO 67 121413 

00 67 Yy=let0 

PERPAS( 1.4) = PASS(¢(Ieyu) 7 STUD 
PFRFAIL (304) = FAIL( 3.4) 7 STUD 
R=zwIND 11 

*# # # # & # OUTPUT SECTION # # 
PROFILE PAGES OUTPUT 

KPskKP +1 § PRINT 220«KP 
PRINT 345. PROFILE. rPRO 


PRINT 335. ( PTLE C1PROe} dP ef=103) 
PRINT 346.PEECEE.PROF ILE 
PPINT 230 


PPINT 2348.PEECEE. (PCINACEPRO.I) eJ21013) 
PRINT 350 

PPINT 230 

OO 71 K=teNOET 

PRINT 3526. Kea CETOIST (Sek) eutdel3) 
PRINT 351 

PRINT 230 

DO 70 KzIeNG2ET . 
PRINT 3524. Ke (FTOISTA( Ie) oe Jetet3) 
PRINT 354, PEECEE 

PRINT 355° 

PRINT 230 

00 72 K=1410 

PRINT 3564 Kea (PEPPAS(JeK) eUtTeI3) 
PRINT 358. FEECEE : 
PRINT 359 

PRINT 230 

09 73 K=1.410 

PRINT 3564 Kea (PERFAIL (Jak) oe J21013) 
KP=KP+1  & PRINT 220«KP 

PRINT 3754 PROFILE 

PRINT 377. PROFILE .« HIGH 

PRINT 378. PROFILE e ALOW 

PRINT 380 PROFILE: AMEANe SD 8 
HISTOGRAM OUTPUT 

PRINT 382. PROFILEe IPRO.INCG 


PRINT 3844 (FROM(J9) eJ21.1SUB) 


PRINT 385. (TOY) «J=1-1SU6) 


PRINT 386 

PRINT 388+ (COUNT(J).J=1-15U8) 
PPINT 386 

PRINT 3906 APEAS 

PRINT P20 


PRINT 39756 ¢TMFAN( J) oJ=tet3) 
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362 


384 
385 
386 
3e68 
390 
392 
400 
ao2 
aca 
806 


i3 


10 


20 


FORMAT 


FORMAT 
FORMAT 
FORMAL 
FORMAT 
FORMAT 
FORYAT 
FORMAT 
FOaRYMYAT 
FORMAT 
FORMAT 
eno 


AT xe CHISTOGRAM FOR@ASc [5e/e 3xKewITH INCREMENTS OF 6. 


BT64.9 HOUOCS#LsS) 


CSmef FROM @43xK010(FSe004Xx)) 

(79SXo> TO BeAXe SOIFSeOe&X)) 

CSEXCPHE wm © wee lOO &@ = = # 3) 

C7 oOXMe ANLMHERe ce GK e LOCK Be OeGK)) 

CASAS ATHAATNE AVERAGE TIME IN KOURS SPENT IN EACH ®cASeZ) 
CSc AHALOSS eAKe ISEB 1) 

145xKe#DL MAND FOR EVENT TYPES@WI THE el3e® TYPES AVAILALLES 67) 
CSKeetE TA. 1 2e3Xe INFHLO) 

C747 e2?0Ke4#SUM CF ABOVE OEANO = 6Y TYPE® 67? 

t25x el OF BeD) 


SUBROUTINE PTESTLIPROe<FOeKmD) 
COMMON AZ PCINACT 261320 APRE LID) « APOSTEIID) +s TRPCINA C1326 


UPASSCI Bc POe FAILED Ie LAP se OCUMCT Ie 2500 ETSUME RB 3e25)0 NOETe 
USCUM EDI PHIAMOLET 


OIMENSION KFO C12) ekPOC 13) 
SHIFT PCINS TO TRCINA 

OO 13 vete!3 

TJPCINA( J) = POINACIPGOes) 


0o 100 


Pe Oe 
kK 2 0 


tAe1.t3 


NOPC © PCINACIPROcdIA) 
PAE TEST SECTION 


oo 20 


PeleNORC 


R & RNOG(2) 

TF CAPRECTAI-“R> 20¢18¢18 
TPCINACIA) = TECINACI A = Le 
Ke K+ 1 . 

TECK eGTe IO) Ke2tO 

PASSCTAsK) = PASS(ITAcK) + Te 


PrP + 


Te 


CONTINUE 
KPO CTAETACINACT AL 
POSTTFST SECTION, 


fF = Oe 


_ RF £O 


25 


30 


100 
so 


NOPC 
60 30 


TRPCINAC TA) 


Le beNCaT 


R = RNOGI2) 

TF CAPOSTITA) =~ 2) 25.30.30 
TPCIN (3A) = TRCINACTA) + Je 
KE = KF + 1 

fF UKE eGTeIN) KFRIG 

FAIL CTAcKE) = FAIL CL AcKF) + Le 
fF © F + te 

CONTINUE : 

POINT SO« [Ae Pe F 
KFOCITA) eKF 

CONT INVE 


FORMAT 


CLO ce FFROM SUR TEST AREA IS 8cISeSXe#PASSING#s FEeOe5Ke 


PAF AILURES* F520) 
RETURN 


$ END 


SUBROUTINE DEF INCI CEF PROFILE PetChn AREAS) 
INTEGER LEF. PROFILE PCECKEs AREAS 

PROF ILFESH : 

PFECEE &SH 

AREAS =5H 


3-18 


KeemPe 
PRINT 
PRINT 
OO 74 
PRINT 
PRINT 
PRINT 
eae 


GFr A 


74 


GET A 
Go 19 
sTcPe 

aee 
#e#e 
FORMAT 
FORMAT 
FORMAT 
FORVAT 
FORSAT 
FORYAT 
FORWAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


220 
230 


2s FRACT. 


e@e 
253 FORMAT 
302 FORMET 

ION § 
304 FORYA) 
306 FORYAT 
3ON FOR “ArT 
310 FOR“AT 
wTEO | 
FORYAT 
FOASMAT 
FORMAT 
FORMAT 
ee # @# 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


312 
314 
315 
335 


345 
346 
348 
350 


’ 1 
aQue 
230 
KepeNOcT 
4ZOPe Mea 
424 

20%. CTOEM(C UI JET NOT) 
# # E80 OUTPUT 

Kiw PROFILE 


PRINT F2Oerh 
hoy 


TCEMC IK) eJtbe 13) 


CONTINUE 


NEw RUN OTHERWISE STOP 
3 


*# § #@ OUTPUT FORMATS # # 
# GENCRAL FORMATS # @# 
CGE Oc2excALD 
CISFSeN) 
(PEF IAN: 
(SF 500) 
(SAN) 
(208.443 
(45x%~.5458) 
C13e«F 520) 
CVIOKe ®PAGE MA tel Be) 
CTHE SDL oxe @PAGE NOs#et3e7) 
(1Gxer NUMe Pe Ve AOD. 
MONEY TiIec MEASe 
# MZADING PAGE @ & # © 
C2xe1VDeBKeF 1004) 
(55x«FE OS TM THaesse3BSXe*S CHOOL 
rMULAT EO N*.6C7)) 
CS2ye FOUN PUIMRER @eF 20 S77) 
CBOKe PNATA CERIVED FRO’ @.5AB. 7s} 


MULT « OlVe CoO.P 


SPeTOPo@e/} 


SUS. 
GEO> 


OF EOUCAT I 


C20K eA THE MUMMER C& STUDENTS IN EACH ©.45e% 150.1507) 
C2OKeF THE MUMBER CF @4A5¢ #5 FOR WHICH RESULTS WILL BE OUTP 
S #ef3es7) - 


(C42x<tORS AND POST TEST PROSASILITIES FOR THIS RUN@®4//5 
CTX ae PPD Se SKe BOOK eK Se Mel KDE 

C7eGK ce SPOSTH SK ed DC 2KeF He Be I1K)} 

(STx«2ABeAha ss} 
* PROFILE PAGES © © @ # @ 

CHOxe#OuTPuT StarisTicS FOR #eASeiGes) 

(@7%eFNUYEER CF @eA45e°S IN THIS #.A5e7) ‘ 
(OxcASe 3K eT DOAKcFGeOe KI) 

Clete 7.95¥e PEVENT TYPE SELECTION PROBAGILITIES%«7eSIX%s 


$ SHEFORE POST TESTe.s7) 


35) FORMAr 


TRAE TER 
352 Foe ar 
354 FORYVAT 
355 FORMAT 
356 FORMAT 
358 FORMAT 

9 (3 
359 FORMAT 
375 FORMAT 
377 FORMAT 
370 FORMAT 
380 FORPYAY 


ANDARO OEVEATICN OF 


Cire 7 eGEX. COVENT TYPE 
POST TEST#es7) 

(Gx e PLETE eh De PKe LIF Aad) 
O77 ce ACK A HRERCEMNTAGES CF STUDENTS PASSING @eASe# PRETESTS#) 
COxe FPERCENT & e 720%. PPASSINGO) 

C2Kc#AT LEAST el 2at Keb ZC GXerh G3)? 

€77.42Xe *#PERCENTAGES OF STULENTS FAILING #e4£S5et POST TESTS*® 


o 


SELECTION PROBAHILITIES*# «765140 


COX e #PERCENT OG. 70 OXe FFAIL INGO? 

Ca dxec® TIVE OIMENS TOM OF THIS #.ASess} 

CPOKASHIGHE ST TIME IN THL @-bSs © 160.FHele # HOURSEe/} 
CPOKetLOWFET TIME TM THE @eAGe © TSeeFdele® HOURGE. 7) 
CAOKeF THE AVERAGE 44850 © TIME 15 €eF Be 20% MOURS WITH A CTA 
PoE %e2@a% HOURGHCs//) 


Ot ene tem ee ee ee 
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35d 


YF (DEF eEOe IHL) 10. 20 
10 PROF ILE=SHLE VEL 

PEECEE=SH AREA 

AREAS=SH AREA 
60 TO 30 

20 IF (DEF eENetHAd 25,4 30 
25 PROF ILE=SH APEA 

PEECEE =SHSKILL 

ARE AS=SHSKILUL. 

30-RETURN 

END 

SUBROUTINE SAMPLE (KFO.KPD) 

COMMON ZA/Z PCINA(12¢13)0 APRE(13)¢ APOST(13)90 TPCINA (13)6 
PPASSOIBCIO + FAIL O13¢10)« O0CUM613.25)6 ETSUMO13+25) 4 NOET. 
1S°UM6 13425) eNO2ZET 

OIMENSION KFO(13)6KPO( 13) 

00 & {Fle!3B s OO 8 Yy=l-25 : = 

8B ETSUMC Ted} = Oe 
¢c FOR ALL AREAS, wITH NEw TRCINA 

©0O 8O J=1e13 

NeTPCINAcJ) : 

c GENERATE RANDOM NOe AND FIT INTO CUM DISTe 

MtKPD¢ JU) g 

OQ SO 1=1eM 
R=RNOG(2) 
0a 30 IDOIST=1 eNOET 
ISAVE=1OIST 
TF CR~OCUM( Je IOI ST) 225225430 
30 CONTINUE 7 
25° ETSUM( Je ISAVE ) =ETSUM( Je ISAVE 1 +2 6 
S50 CONTINUE 
MM=KFD(¢J) 
DO 65 f=1eMM 
R= RNOG(2) 
00 60 ID0!1ST = 1-«NO2ET 
ISAVE=101StT 
TF CR-SCUMCY.ITOIST)) 634+63.60 
60 CONTINUE 
63 ETSUMCUcISAVE) = ETSUM(JsISAVE) +1 , 
65 CONTINUE 
BO CONTINUE 
¢c PRINT 7Oe (CCETSUMCT Sd el=1e13) eJ=1 eNOET) 
ora 70 FORMAT (SXe*FROM SUB SAMPLE ETSUM#e/40( 10X%¢13F5e0)} 
RETURN $ END 
. FUNCTION RNOG,( ICOCE) 
¢c GENERATES ONE NOe PER PASS OF LENGTH DETERMINDED BY INDEX 
$F ¢§CODE«EQe99999999) GO TO 100 
_ -RNOG=RANF(=1) : 
100 CONTINUE 


RETURN $, £NO ° 
SCOPE — , 
@LOAD 
@ 
ERIC | p20 


EDSIM 2 
EDE1M ais the first attempt to create a large scale model. We 
Suggest that the potential user consider EDSIM 4. EDSIM 2 is presented 
for historic completeness and for the few products not included in | 
later models. Using a class of "created" students, EDSIM 2 the computer 


simulation " 


steps tHfrough" the same sequence of events as the envisioned 
METEP design. It ¢ reports a series of statistics on various levels 

of resource use and rates of progress in the students. The simulation 
thus provides a means to see the potential impact on the total METEP 
system of design changes being contemplating, (Figure A) 

An initial attempt to create a single computer program to exhibit 

the essential variety of the METEP system was deemed inappropriate. 

From a model building standpoint, it became difficult to "step through" 

the model logically, an essential step if the model is to have any internal 
validity. 

Hence, the simulation model is actually three separate computer 
programs. Two contain the elements of the METEP, the third is a data 
translating program. Prior to examination of these programs, a brief 
description of the data structure in the simulation will be presented. 

Much of the simulation model concerns the transmission and up- 
dating of daca files. Four primary files are needed by the METEP, and 
consequently by the simulation model. The first file is obviously a 
file of student stat.:s records. This file "tracks" each student through 


Ithis model was developed as part of the Model Elementary Teacher 
Education Project at the University of Massachusetts. Reports of the 
Project are available through ERIC as follows: 

"A Feasibility Study on the METEP" Phase II, Vol. 1. Ed 043-582. 

"A Feasibility Study on the METEP" Phase II, Vol. 11. Final Report. 
Ed 043-583. 

“Summary: A Feasibility Study on the METEP" Phase II. Final Report. 

Ed 043-584. 
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the system. The second file lists the I. at associated with each P. c.2 


A student who must meet a particular P. C. must be able to find out what 
I. A. are available to aid him. The first file is derived from the 
second, it lists the P. C. one is eligible to test given he had engaged 
in a particular I. A. 

The importance of this third file may not be apparent. A "rational" 
student facing a list of P. C. he must pass will not arbitrarily chose 
I. A. Rather, he will select I. A. in such a manner that a minimum of 
duplication will be made. A lengthy I. A. may meet 10 P. C. The “rational" 
student will not take this I. A. to meet just one P. C. and forego the 
opportunity to test the other nine. It is the third file which allows a 
complete linking of I. A. to P. C. 

Finally, a fourth file emanates from the system administration. It 
contains the requirements needed to conduct any I. A. The requirements 
relate to physical space, faculty, and assistants. . From such a file, 
resource requirements for any set of I. A. can be listed, 

The simulation model is built around these four files cf information. 
This file structure occupies a dominant position that the organization of 
the computer programs which comprise the simulation. 

Postponing for a moment the first program, which is a data editor, 
the remaining twe programs constitute the actual simulation. They are a 
student generator, called STUDENT, and an METEP flow program, labeled 


ANARCHY. > There were several practical reasons for “creating" students 


oc “Instructional Alternative" (IA) is an activity through which a. 


student prepares himself to meet the stated ecritericn and occasionally 
several related criteria. - 


24 "Performance Criterion" (PC) is a specification of an instructional 
goal in terms of behavior to be exhibited or actions to be performed by 
the student. 


5the name was createa upon watching the computer's first efforts to digest 
the program. : 
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in a separate program. The most important is the need to have a constant 
population for all the model runs. If each run is to examine the 
consequences of a change in the METEP flow, comparison between runs would 
be very difficult if the student population were altered between runs. 
Consequently, the program STUDENT is only run to create a student 
population. This set of students is then used in all subsequent runs 
of the METEP flow program ANARCHY. An exception occurs when the nature 
of the P. C. or I. A. are altered. As the STUDENT program selects I. A. 
for the students, new I. A. necessitates a new set of students with 


é\ppropriate selections. 


Program I ~ Edit and Translation 

This program was written to convert the codes used by the educators 
into codes suitable for the remaining two programs. In addition to 
translating the codes, the program also performs a data edit. Input to 
this program consists of "raw" data on the P. C., I. A., and requirements. 


The results of the program are an "edited" set of data, a list of errors, 


and a conversion table. The error list can be used to correct the raw 
data, The connected "raw" data can then be cycled through the program 
again. This cycling yields the maximum amount of usable "edited" data. 

Each P. C., I. A., and requirement must be specified by a code. The 


educator's codes are given below; where each slot represents one digit. 


YY 
area sub-area unique G/S OBJ Evaluation 
identifier ; type 


Explanation= 


AREA = which area the P.C. is placed in, i.e., math, human 
relations, social studies. 


SUB~AREA= a sub-division within the AREA, i.e, addition of 
fractions in mathematics. 
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UNIQUE IDENTIFIER: A unique two digit number that separates 
the P.C. from all others. 


G/S = Indicates whether this P.C. must be met by all students 
or only those specializing in the area. 


OBJ TYPE= Code for the objective of the P.C., i.e. to implant 
a skill, or a behavior pattern, 


EVALUATION TYPE = Code for the type of test used to evaluate 
the student's mastery of the P.C. 


= _—_—_—_—ovoooIYyO a 
area digits 3-6 of PC Unique Identifier 
Explanation= 
AREA = which area the I.A. belongs in 


DIGITS 3-6 OF PC = the digits 3-6 of the PC relating to this 
I.A. are inserted in the I.A. code, 


UNIQUE IDENTIFIER = A unique four digit number wiiich isolates 
this I.A. form all others. 


Program I translates the above codes into the following codes, 


which are used in the remainder of the sirulation. 


SIMULATION PC CODE = a 4: E L. | ; [6 l | 


AXEA #IA G/s SEQUENCE. 
Explanation= 
AREA and G/S are as above 


#IA = number ct I.A. which can be taken in an effort to satisfy 
the requirements of the P.C. 


SEQUENCE = A unique, sequential, number isolating this P.C. from all 
others. The sequence begins at the number one and works up. 


SIMULATION IA CODE = i 2 3 4 5 6 
AREA SEQUENCE 
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Explanation = 


AREA is as above 


SEQUENCE = a unique four digit identifier going in sequence from 
the number one. 


When examining the requirements, the program reads a set of data 


in each I. A. code. This data consists of ten elements. These elements 


are shown below. 


TA REQUIREMENT ELEMENTS 


are: 


ELEMENT 1 = the 10 digit LI. A. code to which the following elements 
will relate. Fi 


ELEMENT 2 = the percent per day this I. A. will consume. The figure 
is based on a 10 hour day. Thus 10% would be 1 hour. 


ELEMENT 3 = duration of the I. A. in days. 


ELEMENT 4 = minimum number of students necessary to initiate this I. A. 


ELEMENT 5 = maximum number of students that can participate in this I. A. 
ELEMENT 6 = the type of faculty needed, if any. 


ELEMENT 7 = the number of hours this faculty member must coumit 
per week to this I. A. 


ELEMENT 8 = a second faculty type needed, if any. 
ELEMENT 9 = the hours per week this second member must commit. 


ELEMENT 10 = the type of physical resource required, such as a 
classroom or a micro-teaching lab. , 


Program i alters only three of the above elements. Altered elements 


wn 
oe 


ELEMENT 1 = now contains the translated 6 digit I. A. code. 


ELEMENT 2 = is translated from der cent of a day into hours 
per week. 


ELEMENT 3 = is translated from number of days duration into number 
of weeks. 


Program I consumes the raw data in the following form. The P. C.-I. A. . 


file 


Pp. C. 
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is created by the educator using his codes. This file contains the 


code and all the I. A. codes that link to this P. C. This file is 
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placed on data cards, one P. C.~I. A. set — card. A limit of four I. A. 
linking to one P. Cc. is imposed. Program I creates from the P. C.-I. A. 
file the I. A.-P. C. file containing the P. C. associated with each I. A. 
In this file, only 6 P. C. are allowed to link to one I. A. Thus the 
educator need not concern himself with creating the I. A.-P. C. file. 

The requirements enter Program I as one set of ten elements per _ 
data card. Hence one data card is needed in each I. A. Program I converts 
these two files of data cards to three files of data cards with “edited” 


codes. The process is represented in Figure B. 


Program It - Student Creation 

Utilizing the data translated by Program I, Program II-“created"’a 
set of students suitable for the METEP system. Each suitable student | 
has a record which contains the complete list of P. C. he will have to 
meet to graduate from the METEP system. The students and their veconde 
are generated by the following scheme. 

At the time, the METEP system contained aout 580 P. C., the majority 
of which must be met by any student in the system. The set of P.C. which 
will be tested by every student are known as generalist P. C. Each area 
has at least one generalist P. C. Because the specialist portion of the 
METEP is not fully developed, only generalist P. C. were included in the 
data in the simulation siete 

Hence, each student upon entering the METEP system faces‘a given set 
of generalist P, C. He may elect to pretest the P. C., as one of the 
METEP tenets is that a student should not have to labor through an I. A.” 
if he can demonstrate the proficiency required by the related P. C. Program 
II assumes that a student will elect to attempt to pretest each P. C. 


Those P. C. successfully pretested do not require further action. 
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For those P. C. not successfuily pretested, an I. A. must be 
selected with the aid of the P. C.-I. A. file prev ously described. The 
selection process is set up so that any one of a set of I. A. linking 
to this P. C. is equally likely to be chosen. Thus if a student can 
select from three I. A., the selection process assigns a probability of 
1/3 to each I. A. in the set. Program II has the ability to set non- 
equally likely probabilities for I. A. selection. This is done using 
the input variable PRAMOST (see run details), and an element of the 
student record called PARAMETER. The PARAMETER shifts the probability 
distribution from equally likely to greater likelihood of selecting Lae 
first or last I. Avs of a set. For example, if three I. Als are ina 
set, the PARAMETER values 1, 3, 5 would yield probability distributions: 


Pal Pe 3 


“T 
| 
Reon ee 
2 3 x 


For all the current work, the parameter value is set at 3, giving the 


P(x) P(x) 


x 1 2 3 x 


equally likely distribution. 

Having selected an I. A., the fiie I. ALP. C. is utilized to check 
_off any other P. C. which can be met using this I. A. This avoids over- 
selecting I. A. Such a situation would not be congruent with the METEP 
system, 

The above routine is repeated until each P. C. in the generalist 
aateeory Ane been dealt with. The resulting list of I. A. comprises 
those I. A, this student must complete during his stay in the METEP system. 
The I. A. are recorded using the six digit code. 


Prior to completing action on this student, Program II completes 
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two other operations. First, each six digit I. A. codes is expanded to- 


a 14 digit INTERNAL I. A. CODE, shown below: 


1 2 3 4 5 6 7 8 9 10 ll 12 13 14 


6-DIGIT CODE STATUS  Hrs/wk NO. WEEKS COUNTER 
Explanation= 
STATUS : used by Program III, Spot aishian is defined until then. 
HRS/WK: the hours per week consumed by the IA. 


NO, WEEKS: number of weeks this IA takes for completion 


COUNTER: used by Program III, explanation is defined unt,;* then, 


After expansion of the code, Program II inserts the hours per week 
and the number of weeks associated with this IA. The data for this 
comes from the IA requirements file mentioned earlier. In the second 
operation, all the IA in the student's list are sorted into areas, 
the areas running from one apwatds. 

A completed student appears as a list of 14 digit internal IA 
codes plus some identifiers. This record, called STREC, looks like: 

STREC ELEMENTS 


ELEMENT (1) : Student I.D. 
A numeric code identifying each student 


ELEMENT (2) : ENTRY POINT 
Used in Program III, explained later 


ELEMENT (3) : PROFILE 
Currently only a generalist profile is used 


ELEMENT (4) : PARAMETER 
Identifies the probability distribution used in selecting 
the IA along with PRAMOST 


ELEMENT (5) : STUDEXT HOURS PER WEEK 
used in Program III, explained later 


ELEMENT (6) to ELEMENT (10) 
Used in Program III, explained later 


ELEMENT (11) : FIRST 14 DIGIT IA 


ELEMCNT (N) : LAST 14 DICIT IA 
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One set of STREC elements is generated for each student. The 
STRECs are stored by Program II on magnetic tape for use by Program III. 
The data configuration for Program II is shown in figure C. The input 
to Program II shown in figure C is reproduced in detail in figure D with 
an explanation given below. Program II structure is graphically sketched 
in figure E. 


element 1 - NUM/RO 
number of profiles, currently limited to one, the generalist (14) 


element 2 - NUMAREA 
number of areas in the system (for METEP this is 11) (14) 


element 3 - NUMSTUD 
number of students to be created (14) 


element 4-NRPC 
number of generalist PC in the PC-IA file (14) 


element 5 - P CIAR ARRAY 
the PC-IA file in coded form (17, 3X, 4[16,4X] ) 


element 6 =~ PRETEST ARRAY 
the pretest probability for each of the areas, used to set the 
pretest level for the student 


element 7 - PRANOST ARRAY 
The array of probability distributions used in IA selection (F4.0) 


element 8 - NIAX 
total IA in the IA-PC and requirements file (14) 


element 9 - TAREQ ARRAY . 
the IA requirements file (16, 8X, 212, 6X, 12, 13) 


element 10- IAPCR ARRAY 
the IA~PC linking file (16,4X, 8 [17,1X}) 


The notation in parentheses refer to the FORTRAN language imput 


formats associated with each data element. 
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ANARCHY 

Program III, labeled ANARCHY, is the most complex of the three ‘ 
programs. Programs I and II are, in effect, preliminary steps to 
running Program III. It is in Program III that the essential onevaetne 
characteristics of the METEP are simulated. 

Program III consists of a main program and several sub-programs refer- 
enced by the main program. Figure F is a table of the program names and 
a cursory description of their activity. Program III is cyclic in 
construction, so that the suv-prc,rams are called many times under 
varying conditions. Data is transfered between sub-programs via common 
statements and movement of data between sub-programs is taken to be 
automatic in all that follows. 

With the aid of Figure G, which is a flowchart of the basic program 
mechanics, the actions of the program can be sketched. | 

The first step is to input all the data necessary for the run. Primarily, 
this consists of parameter settings, requirements, data and resource data. 
All data input except student records is handled by the DATAREAD subroutine. 


/ 
A complete list of input cards is found in Figure H, which also contains 
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a brief description of each data element. The descriptions will be elaborated 
upon where necessary. 

ANARCYY is a cyclic program with a major cycle sor each semester to be 
simulated. Each semester a new group of students can enter the sytem. The 
number of students to enter in any given semester is found from the NUNSTUD 
array. For each entering student record, ten pieces of information are added 
to the record. In element 2 goes the current semester number, indicating the 
entering semester. In element 5 is put the hours per wadke the student will 


be willing to commit. This number is obtained from the subprogram HOURS, 
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utilizing a probability distribution found in the input array STIMDST. 
Upon gaining these two elements, the student record is opened to the 
file of student records currently in the system. 
ANARCHY is now ready to step through a semester. Two phases are 
employed. In the first, each student record is allocated 20 slots of 
an array holding the student's active elements. In the first ten slots 
of the array, called CURRNT, as the students’ ID and his hours per week. 
Next each record is searched for any unscheduled semester length IA. 
Any found are entered into the first positions of the students’ CURRNT. 
The IA in the CURRNT arzay are thai summed into a demand list. The 
demand list, IADEM, holds the IA demanded and the number of requests for 
a given IA.- At this-point IADEM contains only semester length requests. 
Processing the requests involves three sub-programs, MATCH 1, MATCH 2, 
and CURPACK. MATCH 1 matches the requests found in IADEM against the 
available resources. For semester length IA, for steps are involved. 
Recall that each IA lies in an areas Only a certain percentage of an 
area's resource can be committed to semester length IA. The percentdge 
is an input element, TMAX. So each IA in the demand list must be tested 
for exceeding allowable resources. 4 
Assuming an IA does not peed the limit, it in effect is "schcduled", 
resources are committed to the IA, and a code indicating "OK" is placed 
next to the IA in the demand list. If the allowable value is exceeded 


the IA is not "scheduled", no resources are committed, and a code 


indicating "not scheduled, exceeds allowable range" is placed in the 


demand list. Each JA is processed in turn, so that prior commitments 
of resources do effect the ability to "schedule" IA furthes ‘own the 
list. 
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The demand array IADEM now goes to MATCH 2. This sub-program 
uses the schedule codes to update the IA in the CURRNT array. To each 
IA in CURRNT is added an indicator in "schedule" or "no scheduled". 

If the IA has not been scheduled, a no-schedule-counter in the IA 
is increased by one. The additions are made to the 14 digit IA code 
previously described. 
14 DIGIT IA CODE - ELEMENTS USED IN MATCH-2 
| 2| >} tts] 6) s{ >| 9] 10] 12] aa | 49 | 34) 
SCHEDULE ar COUNTER 

The seventh position ¢. the 14 digit code holds the séhedute 
indicator. If the IA was not scheduled, the SU" in the eighth 
position is increased by one, up toa maximum of eight. 

CURPACK removes from the CURRNT any unscheduled semester length 
IA and "packs down" each students' 20 elements so that there are no 
gaps between IA in the set. 

At this point the CURRNT vector holds those semester length 
IA which have been scheduled. Phase two, the weekly cycle is nacw 
ready to commence. | 

The weekly cycle is ap ene. once for each Student. His complete 
record is made available. The IA in his “URRNT now are summed by tine 
needed per week. The resulting sum is subtracted from the students 
hours per week, found in element 2 of the CURRNT row. I1f the difference 
is positive, there is room to demand additional IA. A test is made 
on the size of this positive figure. [It must be greater than the input 
element SCHLOW if any further demands are te be made this week. 

With room to demand 1A, a search of the complete student record is 


made to pick up additional TA. Two. search procedures are used. Tf the 


0. 


student has completed less than 607 of his IA, then an area is selected at 
random and IA are pulled from this area until the area is exhausted 
or until no further IA are needed. If the area is exhausted, another 
is picked. If greater than 607. of the IA are complete, the selection 
goes in sequence from the first available IA in the record. This prevents 
an undo thrashing through areas as the completion nears 1007. 

For each IA made available, it is first determined if there are 
enough weeks to offer the IA, as it is not desirable to demand an 
adehe week IA with only 7 weeks remaining in the semester. If there 
are enough weeks, the IA will be added to the students CURRNT row if 
the hours per week required by the IA does not push the student over 
his own hours per week limit plus a fudge factor. The fudge factor 
which keeps this scheme flexible, is the input element SLOP. 

With an additional IA in CURRNT and hence in the demand list, 
the new time difference is examined. If the new time is within 
plus or minus SLOP of the students' hours per week, the demand process 
is stopped for this student. IF not another IA is pulled from the 
student record. 

The procéss is repeatedforeach student. Additional IA are placed 
dn CURRNT and the demand list. Recalling that the CURRNT row holds 
20 elements per student, only 17 are available in IA storage. Thus only 
17 IA can be in progress or demanded in any one cycle. 

The demands for this weekly cycle are placed in IADEM. The program 
then transfers to MATCH 1. Like the semester length IA, MATCH 1 
attempts to match the demands in IADEM with available resources. 
Three checks are made in each IA, enough students, sufficient faculty 


time, and sufficient space. A negative result from any check makes 
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the IA a "no schedule" and the proper code is placed in IADEM. 
A fourth check involves excess demand, that id, wore Students requesting 
the IA than the IA can handle. In this case the IA is scheduled and 
the number of requests is replaced by the maximum number. 

For each IA "scheduled" MATCH 1 performs the necessary bookkeeping 
on available resources. With long demand lists and finite eesoumeeas many 
IA are not scheduled due to lack of resources. 

MATCH 2 is again used to transfer results from IADEM to the CURRNT 
array. CURRNT hold the results of this weeks scheduling efforts. 

The main program, ANARCHY, now increases the weekly counter and 
checks the CURRNT for any completions. If an IA is completed, it is 
assumed that the student will successfully pass any posttest associated with 
the IA. Thus, an IA which is completed in the time dimension is assumed 
completed in all aspects. A code denoting completion of an IA is placed 
in the seventh position of the 14 digit IA code. During this completion 
check, a sum is kept of comp! ‘tions and unscheduled IA. 

The complete student records are now updated with the information 
contaified in the CURRNT evey. In order not to destroy previous information, 


" complete student records 


a two master system is employed. "Last weeks 
are contained in the "old" master file. A record is taken from the file 
updated with the new information, and then placed in a "new" master file. 
At the end of the process, the "new" master file contains the records 
current to this week. Next week, the "new’' master becomes the "old" 
master, ma the cycle repeats itself. 

During the updating process a check in graduation is made. Element 


& of the student record holds the soho IA in the record. Fach week 


the total completions are compared with a percentage of the total IA. 
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For most runs, this percentage was 95%. A student is graduated when 
his completions exceed 95% of his total IA. Graduation involves 
placing relevent portions of the student record in a separate file for 
display at the end of the semester. In addition, the record is flagged 
to be removed from the CURRNT array and the "new" master. 

The CURPACK sub-program is slied:-<6 pack the CURRNT array and to 
remove any graduated students. 

Prior to commencing the ne:.t weekly cycle, statistics in the 
week are computed and printed. The program then returns to the beginning 
of the weekly cycle. If the week is the last in the current semester, 
additional statistics are printed from MATCH] and the semesters graduates 
are listed along with a status report of all others in the system. The 
program will return to the beginning of the semester cycle and prepare for 
a new entering class. 

In addition to the input shown in I ‘gure H. one additional card is 
used. This card governs the restart procedure. Because run times are 
Jong, a means of restarting the program was deemed necessary. At the end 
of each semester t'e View master is copied onto a magnetic tape. To restart. 
the system this tape is feed into the program prior to entering the new 
semester routine. At most part of one semester is lost from an aborted run. 
The restart card is the first card of the input deck. The complete input deck 
is shown in Figure I. 

The above discussion should give a feeling for the program s structure. 
For further study, a detailed set of flow charts is displayed in Figure J. 
The next section will investigate a sariple run and showwhat types of output 


an 


are available. 
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Example, 


Perhaps the best way to understand the simulation model is to 
examine its output. . The example is from one of the later buns, 

The input ja the run is given in Figure Hs, by way of explanation 
the following is given. 

The restart procedure is set in a new run. If this run was a 
restart run, the second figure would be a 1 and the first would be 
one less than the starting semester. 

Three semesters are to be simulated, with 400 students entering 
the first semester, none the second and thirdsemesters. 

The over-demand variable SCHST has a value 1, but this is just 
a place holder as this variable is not currently used. 

A minimum of 2 free hours is needed if additional IA are to be 
demanded and + 5 hours from the students' hours-per-week is considered 
acceptable limits. 

The student hours-per-week distribution governs selection of 20, 
25, 30, or 35 hours a week as the student time. Note the distribution 
is CUMULATIVE. If looked at non-cumulative, it assigns a probability 
-i5 for selecting 20 or 35, and a probability .35 for selecting either 
25 or 30. 

TMAX value at .5 allows only 50% of the area's resources to be 
committed to Sees ent TA. 

There are 948 IA in the requirements file and 15 types of physical 
resources. 

Next is listed the capacity of each type of physical resource. 


The very longthy requirements file follows, one card in each IA 
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(only the first and last cards of the file are shown). 

14 weeks constitute a semester in the systen. 

The available physical resources in each week in each type are 
given in the ICRES array. One card per resource type, 14 values per 
card. 

There are 3 types of faculty and 11 areas. NTEACH 
holds the faculty hours per week in each type by 
area. Thus the first three cards give the hours 
in area 1 in the three faculty types. 

The remaining arrays hold alphanumeric titles to give some meaning 
to the data returned by the program. IWDRES holds labels for the 
physical resources, EWDAREA identifies the areas, and EWDINS lists 
the faculty types. 

The last array, IWDIS, holds the reasons for not being able to 
schedule an IA. The firs., TMAX, notes that an IA of semester length 
used greater than 50% of the availatte resources. The last, EXCESS 
DEMAND, labels rejections due to too many requests for an IA to handle. 
In many cases the number of students requesting an IA exceeds the 
maximum number of students “he ‘'. can accomodate. 

With input now complete, attention can now be turned to the 
program's output. 

Figures (1) and (2) are partial samples of the initial resource 
conditions. The avaiiable physical resources are drawn from the input 
arrays ICRES and NTEACH. Any IA scheduled will draw down these resources. 
In each row there are 14 figures, one in each week of the semester. 
Figure (2) has only one faculty type, the remaining two types are not 


shown, but the output is similar. 
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Figure (3) gives a tyvical weekly output. The first figure in 
the weekly output should be self explanatory. Length of demand array 
shows that 250 distinct IA were demanded by che 400 students in the 
system. The third figure will be meaningful if the nature of the 
CURRNT array is recalled. Each row of the CURRNT has 17 positions 
in holding IA. If a student fills all 17 positions and his time still 
‘allows more IA, the next selection will overflow his CURRNT row. The 
number of students who are stopped this way is the number of CURRNT 
overflows. 

Number of excessive searches checks on the area selection procedure 
cycling more than 10 times, The two part selection routine explained 
earlier keeps this figure at 0 in most cases, 

The five averages are taken over all students in the system this 
week. Gee hours are hours students wished to commit F ¢ could 
not due :o unscheduled IA- The number can go negative due to the SLOP 
factor used in cowputing student time available. 

Disappointments refer to IA demanded but not scheduled. In this 
cave the average student had 1.7 IA demanded but not scheduled. The 
average hours committed is oF 64 and is very close to the expected value, 
27.5 tours, derived from the hours-per-week distribution. 

The list of “scheduling hand-ups" gives the nuroer of IA unscheduled 
due to the reascn listed. Inadequate demand occurs if less than the 
minimum number of students requests an IA. That is, a large lecture 
will not be held for one or two students. 

The last figure is not related to the simulation output. It is 
the computer time actually used te simulate the week. This figure was 
added when excessive times were noticed in the later stages of the runs. 


The real time value is a function PRIMARILY of the number of students 


> 
ERIC 4 - 18 


in the system, here 400, a high figure. 

A set of statistics similar to Figure (3) is produced for each 
simulated week. In addition, all but the real time figures are 
punched onto cards for use in separate analysis routines. 

The end of the semester brings forth a set of summary statistics. 
Figure (4) shows the first set, the physical resources used each week. 
As can be seen, there are very few cases when the resources were 
exhausted in a given week. This is reflected in Figure (5), a summary 
report showing mean use and its standard deviation. The figures under 
AVERAGE give the average per cent utilization of the resource over this 
semester. Figures (6) and (7) give a similar picture for the first 
faculty type (professional). From such a picture it can be seen that 
latter weeks tend to draw more heavily upon faculty in some areas, a 
trend that was marked in several runs. 

The semester's accumulation of "unscheduled IA" reasons is 
presented next in Figure (8). Unlike the tabulation in the weekly 
output , this tabie displays the number of cases in each category. 

Thus in the first week 181 cases of excess demand were observed. Such 


a figure might indicate too low a maximum level in the IA in the area. 


yisure (9) displays one form of the semester status list, the 
final table of the semester output. When there are no graduates, 
only a list of key elements is given. The list is more useful for 
debugging the ayehat than in stating detailed reports on each student's 
progress. During the debugging phase, the middle three elements were 
used to track net progress and the buildup of total disappointnents. 


Such tracking aided in part in validating the program's routines. 
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When there are graduates, an additional status iist app ars, of 


which Figure (10) is an example. This list, which is taken from a 


~ 


different run, lists key elements of the students' record at eeanudi ton. 
Going across the list, the elements are: 

LIST NUMBER 

STUDENT I.D. NUMBER 

ENTERING SEMESTER 

EXITING SEMESTER 

NO. WEEKS IN THE SYSTEM 

PROFILE NUMBER (always 1) 

STUDENT'S HOURS/WEEK COMMITMENT 

TOTAL IA IN RECORD 

TOTAL DISAPPOINTMENTS INCURRED 

In this particular case it is interestive to note that the graduating 

students coliected almost as many disappointments as they had IA to 


meet. Such a condition has major implicaticus for student acceptance 


‘ 


of the METEP. 
A set of statistics like those given in Figures (1) to (10) 
appears in each simulated semester. The figures are outputed at the 


end of each simulated semester, they are. not held internally by the 


computer until the end of the run. This procedure prevents an abnormal 
termination of the run from destroying all the information accumulated 


up to that point. 
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TABLE OF PROGRAM LIL SUBPROGRAM NAMES 


~ PROGRAM NAME — ___ConTENTS 


ANARCHY ‘main program, sets up semester and weekly cycles, 
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Unless specified, all numbers are right justified in the fields with 


no decimal point 
CARD ss CONTENTS 
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- COLS 5-8=number entering second semester 

COLS 9-12=number entering third semester 

and so on in fields of four columns 


SCHST. . factor used in over-filling the demand * 
list to insure a level of I. A. scheduled. 
The factor is currently unused but must 
\ be given a value (in current runs 1.0) - 
. COLS 1-4=number ware decimal point 


SCHLOW ‘ : mindmum time in hours a student must have available 
in any week to attempt demanding further IA COLS 1-4 
‘ value of SCHLOW, without decimal. ; 


SLOP \ sets the limits about the exact student hours per 
2 - week that will be deemed acceptable for a IA 
| \ COLS 1-4 value. of SLOP, no decimal 
- ; 
STMDST \ array of probabilities assigned to the four possible 
student hours-per-week values the probabilities © are 
CUMULATIVE 
COLS 1-4 = probability of 20 Hidaxe eek 
: 5-8 = probability of 25 hours/week - 
9-12= probability of 30 hours/week - 
13-16= probability of 35 hours/week 
all values have decimal point 


Oo 


ERIC” a - Apes 


ICRESCAP_ 


TAREQ 


NOWEEK 


-ICRES 


—NUMINST . | 


NUMAREA 


@ 


ERIC 


Figure H (con't) 


aOR eR 


.that per cent of total resources which can be 


committed to semester length IA 


_COLS 1-4 = value of TMX with decal point 


total number of IA in requirements file 
COLS 1-4 = values of NIA, no decimal 


total types or classes of physical ‘resources 
available in this run. Z 
COLS 1-4 = values of NUMRES, no decimal — 


array of maximum capacities of eath type of physical 


‘Tesource, measured in seats, or stations available 


COLS 1-4 = capacity of first resource 

COLS 5-8 = ‘capacity of second resource . 

and so on in groups of four columns as 
array of requirements, one “Gadteeuent set per card. 

Detailed explanation of formats-is found in the text 


‘of the first part of the appendix. 


COLS 1-6 —- IA code 
15-16- hours/week 
-17-18- number of weeks ; 
25-26- min. no. of students 
27-29~ Max. no. of students 
31 - first faculty type . oe 
32-33-. hours this type must commit 
34 - second faculty type 
35-36- hours this type must commit 
41-42- physical resource code 


number of weeks in the semestér, ueuelly 14 
COLS .1~4 = value of NOWEEK 


array holding the amount of each physical resource 
available each week, measured in seat -, (or station) 
hours per week. -One set of 14 week figures per card, 
hence, one card per physical resource. 

COLS. 1-4 = first weeks availability 

COLS 5-8 = second weeks availability 

and so on in groups of four columns 


number of distinct faculty types 
COLS 1-4 = value of NUMINST 


number of curriculum areas 
COLS. 1-4 = value of NUMAREA 


 -NTEACH 


-IWDRES 


_ IWDINS 


"- IWDIS 


ERIC 


~ IWDAREA 


_ Figure H “(eon' on 


\ 


array hee the. available hours of each faculty 
type in each area for each week. Each card has 


14 values, one per week, and there is one card in 


‘each type in each area 


COLS. 1-4 = hours available in first week 
COLS. 5-8 = hours available in second week 
and so on in groups of four columns 


‘physical resource titles, one title for each type. 


One title per card. 
COLS 1-16 = any alphanumeric title 


area aide. one for each area 
COLS 1-16 = any: alpheniearte title. 


faculty type titles, one title « on:a card 
COLS 1-16 = any alphanumeric ‘title 


titles for disappointment categories. five 


categories, one title per card 
COLS 1-16 = any alphanumeric title 4 
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Figure Je. . 
PROGRAMA ZZ - ANARCHY = PAGE 4 
IN pT . 
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INPUT RECORD 
PREVIOUS apis 
SERIES TZR 
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— oer 4M CURRUT 
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# on. : 
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RECORD 
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currant 
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COUNTERS 
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Fit!o 
FIRST (fsx7)}- 
AVAILABLE 
ZAIN AREA 


D0ss 
7s TING 


TO cuRLeT 
AMO BE,AKKO 
LIST 


SVETRsAc 
FA TIMMS 

FRU OFAN 
TimeE 
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| * Spigite 00-8 P a A 7 ee 
PROGRAM IT — AMARCHY - PAGE # oy i 


raed 7 
: oS ° 


SELECT. | 
FIRST o 
ZA ¥) ty 


70. CUnRET: = 
AUD DEIAAKD- 
LST i 


ee fe oi 7 : A : 7 E . = 


: | gb Figure J 5. _ 
. PROGRAM TT - ANARCHY = PAGE'S * ee ae 


ADVANCE 
THES 
week: 

‘| covnrTek 


peat. 
ses stooes « 
| RE coR9: 


Cano vk ae 


CHECk 
“hk ‘computriens- 
. “OF: AY zAL 
\ ld CURR AT 


Roe rrose 
- a FNS 
uP coun rok 


fabrracs. ff 
RECORD Ff . 


BRING tt, 
STUSEUT 
RECORD. 


PosT NEw Gy wet |, 
POST Nz Srvoen 

CURRHT tL 
STATUS TO. 


RECORD 


COMPUTE - 
ZA NSE 200 
.: ae 
GRA 


VATE 
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5 PROGRAM IE. - ANARCHY ~ PAGE 6 


‘Comev7e 
STATISTICS 


OUTPUT 
\GRAD.- 


' \yoereuT . 


TUDENT 


oe Ge: Figure J. 7 | 
perio . SUCRGUTINEG MATCH 4 - paee2 


ENTER 
Maron £ 


Ss7T. UP 
hssosk CES 
FUR 
comin 
Semesreh 


FIRST 
Sax OF 


Sum . 
FACULTY _ Fy 
LEST M SM7S\ ss 

ww EACH a7! 


AEEA 


ACCEPT 

wo, All FA IN 
Mair FOR | 

PRE CESSIO.> 


Tata 


Actzer fh 
Chosen urweb 


THAN is 
ErxLIe aly. | 
Cee 
EACH CA. spe, 
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InSEaT 
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Sve TRACT 
EXCESS 

| DEMTAN Oo, 
4oo 7d 
oIsape 


beop za, |, ASN 

Cong’ 2? wa YA FAsueTi | : 
A Aon TO. AVAUAELE 

OISAP FT AEN ? 


Roe =4,° 
Cope *¥2. 

Abo ro. 
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ALLOCATE | 
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ENTER 
CURPACK 


| 

| REMOVE 
RuUY . - 

l Onsetsoveee 
OF contecErcy 

pL ea 

| 

| 

| 


Pack Ih 
THs 
CLANS. 


-~aeN 
ee 4 Next Sib) 


REMOVE 


CURRUT 
LIST . 


EDSIM 2 


MAND. Panan 
QUIP,.3=(S TUDE “T-FILF) sPA NT 


TNeb eX 
PROGRAM SCTUDFENT 


THIS F4ASF OF THE FOSIM PROGRAM CRFATFS STUDENTS. GIVES THEM 

“FLECTIVE PC ASSICNMFNTSs PPETESTS ALL PCe AND SELECTS IA FORTHOSE 

PC NOT PRETFSTFED. 

“THE PROGRAM WILL CREATE ANY NUMBER OF STUDENTS FOR 14 OR LESS PROFILES 
WRITTEN FY WILLIAMS AND LEININGER - 7718/69 


RUN OF AUGUST 16 = NOTF CHANGES IN COMMON /A/ 
ALSO NOTF THAT ONLY 4 PC ACROSS ARF READ IN THE PC/IA FILE 
LIKEWISE FOR THE TAyPC FILE or 
THE TARFOQ FILF HOLMS ONLY THE FIPST  s BLors 


Cayman 717 PCTAP (5 e690). TAPCR( O5NWADs TARFOQ( 95Oe5)e 
INPC C11) eNUMSTUID (5 ¥ ePRMDST(S) eNUVPRO es NUMARE A eNRPC 
DIMENSION STREC(SAO)s PCTIAR2Z(5+690) - 
INTEGER STRECe PCIARe PCIARAs PCIAEs PFILE + PRO»PRE 
DUM = RNOGOI) 

CALL DATARFAD 


nen 
nO 1? Tate + NO 1? Jat eNREC 
1? PCTARP(TeJ) = OCIAP(TéJ). yee 


“MAST QUTFO LOND = NONF FO® FACH PPOFILF 


| FOR FIRST RUN - ONLY CNE PROFILE _ 
eo PPO = 1 
LOOP FOR CREATING THE STUMDFNTS FOR THIS PROFILE 
NUM = NUMSTUD(PRO) 
DO S09 ISTN=1.NUM ; 
IstctT = OQ. « 1EPC = 9 : 
DO 192 J=1eson 
102 STREC(Y) = 9 
~ NO 199 1210S $ nO 102 J=1eNPPC 
102 PCIAR( Tey) = PCIARP (Tsu) . 
CRPEATF FIRST STRFC VALUFS 
— ISTRFCO1) = IN + ISTH 
STREC(3) = PRO 
PRMDST RPFMOVED 
STRFC(4) = 3 


ENTER THE SECTION FOR ALL’ STUDENTS=THE GENERALIST PILE 
— BPO 200 NRFOS1eNPPRC = 
CHECK FACH PC FOR THE GENFRAL IST CONE 

114 TARFA = PCTAR(TeNPFOsIANANN 

TEST FOR APFA = 77. SAYING PC ARREADY MFT 
_ TECEAREA Fe 77) 1200171 

- PUT COUNTER FOR 77S HERE ; 

179 GO.TO PAN 7 _ 

: PRETEST THIS pC 

‘121-1PT =& PTFSTCTARFA) 

2 GO .TO. (1246177) IPT 
_ SESE SSFUL PRE TEST ; oe at : _ 

“ERIC ee re ; 


°. 2 


1°4 IWke = MON(CPCTAR CI eMOFO),IATIN) 
PCTARCT.N@EFO) = 77NFONN + IWK 
6Q TO 200. 
1°? TAS = PCTAR(I1NPFQ)ZIONAN 
IAS = MON(TAS,10) : 


IF CIAS eFQe 1) 1414143 . / 
141 IASFL.= PCTAR( A wNPFO) / 
GO TO 144 +: oe 


TO GET TA POSITION. CALL DIST 
1493 CALL: BIST CLAS.STRPFC (4). TANUIM) 


TASFL = PCIARCTANUM+4 £aNPEN) 
144 IAXPN = TASFL ¥* yAmMANnANSS 
, ISTeT = m8TcT + 1 


IF CISTCT eGTe S00) 1466148 © 
146 PRINT 778 
IsTcT = san 
_6O TO 4%2 
14AR CONTINUE - 
STRPFCCISTCT)=1AXPN 
WORK ONZOTHFR PC 
ITADM = MONC(TACFEL «19N0N) 
IF CIASFEL eFQ,., TAPCROITADD.1)) 1290127 
1°27 CONTINUE 
_ OPINT 7lKHs. TACFL & GO TOA 990. 
129 MO 125 UVeP.A ; 
IF (TAPCROETANNed) oFMe MF GN TO 135 
ON 127 LRENREOeNPPC 
TE COCTAMC EAPO) GEM, TAPCOT TANNA J)) 92%0127 
‘130. IWK = MONI PCIAP(TeLP)eICQNND) © 
* PCTARCLeLP) = 77N0NNO +. [HK 
132 CONTINUE a 
135° CONTINUE 
FINISHFD. ONF GFNFRPALIST PC 
200 CONTINUE 
AONE. WITH ‘ALL ARFAS = STRFC IS NOW COMPLETE 
402 CONTINUF | 
STREC(6) = ISTCT - 9 
SORT AND WRITE STREC 
' UPDATE STREC WITH IAREQ 
DO 420 IST=10.I1STCT 
IASHT = STRECCISTIZ1NNANANTO 
IADD = MODLIASHT.1ONN0) 
IF CLASHT eFQe ITARFQCIADD+1)) 4126410. 
410 CONTINUE 
ITIME = 1 
NUMWK = 1 
PRINT 718+ ILASHT 
GO TO 415... / 
41? ITIME = TAPFQCTANDs?) ; oar: 
'. NUMWK = TAREQ CTAND +3) 


4- 55 
re) 


': ERIC 


ane 


“HANDLE INDEP STUNY-PUT 9 IN D SLOT 
“TF CTARFOQCTADN SS) eFOe 999) 415.417 
415 STPECCIST) = STRFCCIST) + SOANNONFI TIME #1 NC ANENUMWK# ION "one 
GO TO 4Pn 
417 STPFCCIST) = STOFCLIST) + ITIMF#INDON + ‘NUMUIKK #100 
420 CONTINUE 
STPEC SOPT RY ARFA 


MOVLIM = I[STCT=] 

DO 425: IMOV=E1OeMOVLIM 
IMOVI = IMOV + 1 . 
IHOLD = IMQV 


DO 422 sJMOVEIMOVIGISTCT 
“ISTONF = STRECCUMOV) ZIN|ANNNNNO : : 
ISTTWO /= STRFOCTHOLD) 71NNAAANNN 1 ‘ 
IF CISTONFE eLFe ISTTWO) 421-4422 pate ; 4 
421 {THOLD = yMov 
42? “CONTINUE 
ITEMP1 = STPFCCIMOV) . 
STRECCIMOV) = STRFCCIHOLD) 4 
|. STRECCIHOLO) = ITEMPI :; 
425 CONTINUE a .! 
-BUFFER OUT STRFC . 
|. BUFFER OUT (361) (STREC(1) eSTREC(500)) 
(83M TFCUNTT¢3) 439+432 04341434 / 
43? PRINT 441+ STPFC(T) ue # 
509 CONTINUF =. 
NONE “WITH ALL STUNENTS TN THIS PROFILE 
-IM = STRFC(1)* 
OHFRF WILL RE LOOM FOP COMPLFTION OF ALL PPOFILES 
' PPINT 443+ PRO 
(PRINT 445 
REWIND 3 
STOP " ; 
‘999 PRINT 7Ole (STRECCT)e1=108) ae - 
* STOP Ps t*. a Ge 
434 PRINT 435 cS STOP igs 
435 FORMAT (/05%«6H* % * 8#EOF OR PARITY ON LU 3%) | 
‘441 FORMAT (10X%e#STUDENT *414e% HAS BFEN RUFFERFD OUT#) 
442 FORMAT (SXe#COMPLETION OF PROFILE #e12)  — 
445 FORMAT (/e5%e#ALL. PROFILES COMPLETED — NORMAL TERMINATION#) 
701 FORMAT (S¥e6H® # * e*STREC DUMP DUF TO FRROR#.5X.B110) 
“TOP FORMAT (/05Xe6H# # % eo #FRRPOR-NO PARAMETER SELECTED-3 ‘PUT IN 65% 
-& DRID =e Ge 7) 
704 FORMAT (/s5Xe6H* * * s#FRROR — NONGENFRAL IST PC FOUND IN PCIAR*+ 
« YSXe#NREQ =#+160/) ; 
706 FORMAT (/65Xe6H# * # e#FRROR-NO ITA IN TAPCR FOR TASFL#«SXe*ITASFEL = 
He TB) . 
710 FORMAT (705Xs6H# # # SHERPOR-1X oGTe NUMRER OF OPEN PCIAE#+SXs 
THIX BSHelGeP%XeKARFA =Hel Pes) 
712 FORMAT (/s5X%sGHe * # | HERROR-ELECTIVE TASEL = OF «SX e#PCIAE =%e 


. 


fe 


ane. 


rahewn iene fi we ek sua? Lt 


TIX eI ANUIM =# 6.1207) - ! 
714 FORMAT (705% efHY * % o#FRROR-NO TASFL/ITAPCR MATCHAS REST ASE. SMe 
1180?X%e#APEA seel2e/) 

716 FORMAT (705% eFH* # % e XERROR=ITAPCR 4/D ROSFNT MATCH PCIAE4/D¥eSXe 
. LHAPEA =¥ eT 2ePxKekTAPCR 4/D¥ 014 e2Xe#PCIAE 4/N#e14e7) 
.71B FORMAT (77.1?R* * * % # # e¥NO TAREQ FOP TA #e18e*% SUPSTISUTION "4 

PADE IN THIS PROCPAM ONLY*e//) 
TPR FORMAT (10X%e#THF FOLLOWING STUNFNTS IA LIST EXCEEDED S00*#) 
FENN 
SUBROUTINE NATAREAN 
COMMON 717 PCTAR(5e&QN)+ TAPCRIG59 eA) es TARFO(O5NeS)« 
INPC C11) eNUMSTUD (5) ePPVYOST(IS) eNUMPRO eNUMAPE A eNPPC 
COMMON /2/ PRFTEST(14) 
COMMON /3/7 PRAMDST(5e605) 
DIMENSION TAPCPHD (A) 
DIMENSION IRFOQHLD(S) 

INTEGER PCIAR, PCIAFe PFILE 
INPUT NUMPFR OF SPOFILFSe MAXIMUM = 14 
PEAD. (64%.101) NUMPRO ; 

INPUT NUMRER OF ARFAS:e MAXIMUM =. 14 
RFAD (696 101) NUMADFA ; 

INPUT NUMPFR OF FLECTIVE PC FACH AREA sMAXIMUME100 PFR AREA 
PFAD (69.101) (NPC OT) e Tete NUMARFA) . 
INPUT NUMBFR OF STUMENTS TO BE CREATED PER PROFILE 
PFAD(60¢101) (NUMSTLIDN(O 1) e l= 1 eNUVPRO) 

INPUT NUMPER OF FLECTIVFS FACH ARFA FOR FACH PROFILE 
INPUT TOTAL NUMREP OF REQUIRED PC BAK IMU SaO0 
PEAD (600101 YNEPC 
INFUT PCIAR MATRIX 
PFANTEANG192) ((PCTAR( Jal) eo JEb eS) altel eNRPC) 

INPUT PRE TEST PRORARILTIFS 
RFAD (600193) (PRETECT(T) lel eNUMARFA) 

INPUT PRAMDST PRORARILITY DISTRIRUTION 
DN PON J=10eS . oa 
7 DO 2N KEteS 
". 20 READ (60+103) (PRAMNST(KeL oJ) eL=106) 

READ (600101) NIAX 
OO 3 TxteNIAX & REAM 104 CIRFOHLN (J) eJ=1¢S) 
TADD=MOD( TREQHLO(1)*10009) S$ NO TKE1eS 
7 TAREQCIADD«K)=IRFQHLD(K) 
3 CONTINUE © . 
DO 30 T=teNIA¥Y & READ 1056 LAPCRHD( J) eJ=1-8) 
TAND=MON(TAPCPHN(1)+10000) & NO 25 K=168- 
25 TAPCR (TAND ¢K = TAPCRHD (KC) 
30 CONTINUE 
INPUT FOPMAT 
101 FORMAT(1414) 
102 FORMAT €17¢3%e4(16e4X)) 
103 FORMAT(14F420) 
104 FORMAT (1608Xe212¢6Xe1 2013) 


*s 


Vee 


7 QoQ. -¢ | ; . | — | 
gens = . oe 


ALLG. 


' DIYENSION HOLN(6) 


i] 


a 


‘<) 
ERIC 


FOPMAT (1604% eR (176 1X)? 

PF TURN s FND 

SURROUTINE DLGT CIA TN«PARAMs LAOUT) 
COMMON /3/ PRAMNST (52605) 


INTEGER PARAM 
MOVE CURRENT PARAMFTFR-RASFD IA DIST INTO HOLD 


06 15 [2106 . = 


HOLD 1) SPRPAMNSTCIAINe1 er eP ARAM) 
APAND = PNOG(?2)- 


_SPAND = APANI ZINN. 


IF CARAND eFNeN.99) APAND=298 
nO PN -ITSAVF=1.TAIN 


_CONTINUF 
-PPINT 55. ARAND 


PRINT SO efAINe CHOLD( J) eJ=196) 

IF CARAND = HOLOCISAVE)) 2502570 

FORCE FFFDING ISAVF=e1 IF FAILURE ON TEST 

ISAVE = 1 : 

Cau AN FRPOP-ROUTINE STOPPING THE PROGRAM 

TAQUT = ISAVE 

FORMAT (705% eo #FREOR TM DIST <NO TAQUT FOUND#.5%0I326F100S5//) 
FORMAT (SX%e#RANDOM NUMPER =%.F 603) 

PE TURN — & .FND 

FUNCTION IPCOCIPCIA) 


DROPS A 9 IN THF THIRD PC SLOT 


Inf = MONCIPC TA. rneaqn) 
TAR = IPCTAZINNNAD 

IPCO = TAR¥IN|ONN + 9NN00 + IDD 
PE TURN: $ FLD : 
FUNCTION PTFSTCIA) > 
COMYVON /?2/ PRETEST(14) 


_PFRFORMS THF PPFTEST FOR A PC 


PTFST=1 IS PASS PTEST=P 1S FAIL 


~ALOW = PRPETESTCIA) = efM1 


PAND = PNING(?) 
RAND = RAND/1O0. 
IF (RAND «lL Fe ALOW) G10 


PTEAT. = te 
RETURN 
ST = 2e 
RETURN *® . FND 


FUNCTION IVARND(NSLOTS) 
FUNCTION To GIVE A PANDOM NUMBER RFE TWEEN ~ AND THE INPUTED 

VALUE OS NSLOTS 

TF (NSLOTS el Fe 1) B10 

-IVARND = 1 

PFTUIRN 

SLOT = NELOTS 

DIV = 1e/SLOT 

(RAND = RNOG(7) 

HOLD & RAND/DIV 

IVA = HOLD+4le- 

IF CIVA eGTe NSLOTS) 15620 

; NNNS4 
4 - 58 


§ PRINT 3%, NSLOTSe IVA 
IVA = NSLOTS 
QM IVARNN = TVA 
1 FORMAT €7/,5X%e#F PROP IN TVARND — VALUE PETUPNED IS NOT PROPER*, 
ISXe#NSLOTS ee TEeSKeXIVA HHe TS) 
PF TURN 3 FND , 
FUNCTION RNOGC(ECQDF) 
REVISED 5/11 WITH EXPANDED CODE 


Icape = 1 SFT SEED 
ICODE = 2 THRU § RETURN INTEGER»s LENGTH OF ICODE 
ICODE = 7 : RETUPN REAL 9 TO 1+ LENGTH 5 DIGITS 


TF CICOME .GT. 1) GO TO 16 
“TA es 9°0RA77 

ER IFAC = IA # 4884707914 

~ TR = MOMCIFAC,2147A3645) 
IC = fARECIRyYZICA ae, . 
NOW SPLIT VIA CODF j ; 
IF CICOME oFQe 1) 17919, 

r INDEX = 100 $ GO TO 25 

IF CICONFE .FQ.e 7) GO TO 30 

INDEX = 10#*#I CODE 

3 RNOG = MON(ICe INDFX) 

GO TO 35 ! 

R = MONCICaIAanno) 

PNOG = RZINTNNO 

; TA = TR 

PETURN & FND 


~ 


NNO? 7 - 


4 - 59 
o.. . : oa | Zi 
ERIC - | ; oe 


010 

ND.24000 

P,3= CSOCr “PONVERT sesh 
«x : ‘ 


PROGRAM COMPACT . ee 
. : No tg . 1 
- COMMON AVP LARC O1500410) 6 TACONF (4)*6 IGFORC(S) 

\ : 


THIS PROGRAM IN THE ERSIM. GERIFS CONVERTS THE PC AND IA CODES 
TO A FORM USFARLF TO THE ENSIM STUDENT GFNFRATORe. ; 
WRITTEN BY LFEININGFR AND, WILLIAMS — AUGUST 696 
“INTERNAL LOGICAL UNITS ARE 7 AND 9 

LU 3 = OUTPUT TAPE CONVERSION FILE 


FOR THE PUN OF &/14 — PUNCH (62) HAS BREN EQUIPED TO 6 
_FOR THE RUN OF 8/14 = PUNCH (62) HAS REFN EQUIPED TO LU 4 
LU 4 = OUTPUT TAPF OF PC=IA AND. TA=PC FILES 


ne ee eee cea 


NO 3 J=1018°0 $ DO P 122610 
“TAPC(UelT) = 0 
TAPC(Je1) =°1 
; KOUNT = O. « KK=0 . 
‘READ 1016 IPCe (IACODE(I) oT=1s4) a 
IF (FOF +60) 30013 : 
CONT INUE : ca 


ADDITION FOR REVISED DATA OF 10728 
DROPS THE ARFA OF THE PC ON TOP OF EACH IA 
TAR = IPCZIORCAQQNN 
TaR = TARP#100NN 
pO 9 K=104 ; ’ 
“TF CTACODF(K) eFQ5e 9) GO TO 9 
TACQDE(K) = TACOPE(K) + TAR 
_ CONTINUE 


DO B K=165 ; 
IGEOPC(K) = 0 id . 
_TSUM = 0 . 

COUNT UP THF IA 

MO 15 J=104 

IF (TACONF (UY) eFQe 9) 15017 

-TSUM = TSUM+1 

CONTINUE 

MOVE ARFA+s G/Ges AND NUMRERP OF TA 

TAPEA = IPCZ1N0NNNN 

1GS.= TPCZ10 | 

“f6S = MOD(IGS.19) | i 

IPACK = TARFAIOCONG + 1SUM#1INAN + 1G6S#1000 
MOVE IN SEQUENTIAL 3 MIGIT CODE 
“KOUNT = KOUNT + 1 
_13D = KOUNT 
“PACK = IPACK + 13D_ 
-LU 7 HAS. THE PC CONVFPSION FILE 


Bese tere ee eee Steet eS ae ee) 


nn054 


ERIC | — | (4H 60. 


Ee WRITE C7eIN3), 1PC. IPACK 

NGFOPC(1). = IpAcK: ae 

= FLIP AND STOPF THE. 1A-PC FILE * 2 

po 7M YeterSum ¢ DO 71 JeldkK 

YF CTACOME CT) oFQe TAPG(5029) 75071 
TAINDX = TAPC(Jo1) + 1 

IF CTAINDX eb Fe 10) 22424 

SPRINT 14)+ TACODE(T) 6 CTAPC(J9L) b= 1910). 
“FORMAT (10X%0%7 AITNOX OVERFLO We 2% 18410 15%s fe» 
LAINDX = 10” ot asses 
CONT INUE —— s o* 
TAPCO Jet) = PAPC (J 91) +1 
TAPCCUelLAINOX). = IPACK - 

$GFOPC(141) = (TAPERS 1000) rane 

eee To 70. . . F a tg -_ 
ONTINUE oO ae ah. wae Oe Bee 


=e eK 4d. Pee a 
PAPC CKK41) = 3. a 
FAPC(KKe2)° = TACOMF(T) . 
APC(KKe3) = IPACK 
IGEOPC( 141) = TARFA#10000 a “KK 
CONT TINUE ead 


REWIND 7 $ | PFWIND 9 

“OUTPUT THE PC-IA FILE. 

PRINT 120 — 2. aa 

PO 32 P2010 

READ (9.109) PCIGFOPC (J) 13 165) = 


fi 


GEOPCt1) = 9999999 : 


A1GEOPC ES) +de1 95), 


OUTPUT THE: NEW: 


TA=PC FILE 


a IPACK#10N00 + T°. ode he 
TM = TAPCEES}) | ee 
SPRINT 124+ EPACKe. ULAR CEL ot) sL1 SE EMD. - 


‘ 2 ee ba 8 % 2 . 
se ; ? 
4- 61 ee a ole = 
x * a = , aa 7 ie ~ 
a * 7 a cis : : i ie 


ap. ; 


BITE (620129) BPACKS: CARCTE AE De EE Se tMN ee es ete 


e008] 


BEST COPY AVAILABLE 


“oUuTPUT THE PC. ‘CONVERS ION FILE. 
“PRINT 110 | 

0 4N Telefon 

IEAD(7e103) TPCeIPACK © 

CIF CEOF 07} 26028: 

“PRINT 1122 1PCe IPACK: 

WRITE (30103) -IPCeIPACK - 

(CONTINUE 7 

5 CONTINUE 7 . - _ 
,IPC = 99999990 oS . IPACK = 9999999 
WRITE (30103) IPCeIPACK © 
“OUTPUT. THE TA CONVERS TON FILE 


114. , oo . ‘ . So me aN: na re 


TAPC (1029710000 — os ot a 
TAPK10000 + 1 34 a e > 
‘116— TFAPC(1eP de TAP | 

€30117) TAPC(TeP)e TAP. 


“CTRe2Ke 4110) 
(1861x017) 
C1OMeTTeSKsA C16, onary 
CE724TA) 


WISX6 #STMULATION. CODE#e//) 
OPMAT (22XeLAe11X0I7) a re | 

TORMAT (1H1 s2AXe#T A. CODE ‘CONVERS ION TABLE® 6 /7/420%4410 DIGIT COnE* 

15Xe#SIMULATION CONE Hs //) ts a 

- CPOKeT10012% 616) . , , 

CLEMe 1.16) : so 

CAO¥e*COMPACTEN PCHIA FILE#eS//) 

CLHL 29% ¢ #COMPACTED TA=PC PILE HA /77) 

r C1OWe TR eSKeACI73BX)) 

CP7 03K ALTE 0aX)) ; es oe 

t1604X% e817. 1X)? . Baw 


r CLHL 036% exPC CODE: CONVERSION Ee Ameer DIGIT CODE#. 


a Ss ° 20366 ° NOVEMBER 

012 STUDENT-FILF) MT eDA 

7=o 

Fa Gett eMToDA : . : : 

ed . , 

PROGRAM, ANAPCHY ; 

THIS | 1S THE THIPDN PROCRAM CF F nS Tm 

“THIS PROGPAM SIMULATES THE STUDENT FLOW OF THF: METEP 
WO LTTEN AY LFININGER AND WILLIAMS 6 a a 
yee - merenenTi 26? . 


a APE ANN DRUM PFOQUIRE MENTS 
U0) = STUDENT INPUT MASTFR=LARFELFD en 

-U 15 = GRADUATE FILE ON DRUM ~ 

2.3 = LU 4 = NRUM STUDENT RECORD HOLDERS . 
v6 = = RYPASS FOR WEFKLY TAPE OUTPUT 

ae ?-= WEFEKLY DATA OUTPUT TAPE 


Loereat UNIT NAMES . oe 3 
-LUNST = tt) 3 OR LU 4. , STUDENT RECOPNS ON DRUM 

-LUIN => INCOMING: STUDENT SECORDS ON DPUM ~CLD MASTERS@ 
LUOUT = QUTGOING. STUDENT RECORNS ON DRUM . NEW MASTERS 
UNDT, & LU A OP. LU 2. — “FFKLY DNATA TAPE. 

: TF LUNDT = 6 NO DATA WILL BF WPITTFN ON THE weiiety ‘TAPE 
1F LUNDT = 4 DNATA WILL. RE WRITTEN ON ‘WEEKLY TAPE. 


‘ON CC CUDPNT (810624) » LIMCUR * ta 
ON JF NUVUIFEKs NUMAREAs SNUMs NSTe STOT ~ 
N 717 TAQDFM(100003)0 TALIM . 
MN ANZ NOGOC1SeS) : 7 a sf 
DN /S/7 NUMCEMs NUMSTUD (12) 0 SCHSTe. SCHLOWs. SLOP’ 
NS TON oe FINISHTBNO) s+ GRANCIO) y 
TYPE INTEGER. STRFECs “CUPRNTs EPOINTs “YPOINTs SNUMe STOT 
TYPF INTFGRR AVFRAN« OVFRAR» FINISH: GRAMs SLOP» SCHLOW |. 
TYPE INTEGER OPEN - ; ——& 9 a ae 


SET. “UP. OVERALL COUNTERS 
$s EPOINT=® 0 $$ STOT » re) 


aol 


TN THE SN U MA ND con D ae ee eee 


INO THE. REGINNING re ae ae ee et 


zs 3). : : 
2948 a tee £ ey #2 
ets 2000 ou, “gs 

LADEM (Ke 1) KK: . 
Oe Me BF ie ae teats a te Mey 


a 


es ees ake eee ees. 


LUND T AND MID=S7 ae ee ee 


BH RNOG EL) FY ry ne Se Bs ee er 


STF MID eF Oe 1) 146-9AR 

8 CONT INUF 

MEDS STPFAM G©TARTUP 

PO. 140 Teteron _— 
BUFFER INC7e1) CSTPFE CLs 8TREC(SOND | oe 

TE CUNITGT) 1396134¢19N.001 ) 

STAT = SYOT + 1 eH 

=. BUFFER OUT(LUNST 61) tstarec1yestAEdts00)) Pa 

a ‘JFCUNTTeLUNST) 1AA614aN = wi 7. 
“CONTINUE 2 oe Pa 


| 
“CALL DATARFAN . - _o | 
| 


CONT INUF oh oe, -: . Vs 
“RRINT 82> ¢ Te SNUM | Mi ea. 2 


REWIND 7. 
FNO OF STARTUP § ©. f/f 
SEMESTER LOOP > : ee 
ENUM = SMUM + 1 7 ; 
DO 197 fetel5 ® © ON 192 JeteS /.- 
PB -NOGO(TeJ) = 9 a se 
RPFWIND 15 © — GFTIS = A, e 
FPOINT =, XEOINT = ©NUM ‘ ye * 
TEST. FOR RUN COMPLETION o. 4 


“RR ING 1 A: NEw CLASS | 

NST = NUMSTUDCSNUM) 

te (MID oF Os 1) GO TO 14! 

PFWIND 3. Ss RFWINN -4: 
“TF CSNUM eFQ. 1) GO TO. 112 

Ss PO 112 T21eSTaT ; 

(RUFFER INCLUNGT 61) (eTREC (1) ee TRECISAN)) 
TF CUNITSLINGT) 114 ¢1.174977,991 

SPRINT 993 ; 


YeNST © es , u 
ra He 


IF ict Foe 6) 9n5 4007 


PRINT 975! 


STREC(S) = HOURS (1) 


IF (STOT *FQe. 891) GO TO 2990 | 
BUFFER OUT (LUNSTe1)- (STRFE(LYYSTRFE C5000) 
TE.CUNTT*LUNET) 119170. an 


kane CLAS APPFNNED ONTO LUNST 
| Beret THE SFMF STEP UMA 


) 1TMp = oO 
how z. INROW41. 

CURRNT(IDROWs 1) ‘2 STPEC(1) 
aA etbieh = STREC(S): 


S wetst = STREC(J)7100 ” J 
IWKTST =. MON LWKTST S100) 
F. CIWKTST: oFQe 14) SNP. aid 
RTST = STPFC (I) ZL ECArANG s ren \. ne 
SIRTST: = MONCIRTET 19), ’ \ 3 
IF. CIRTST eFQ, 9 2OP. INTST. oF Me §) heassto, 
F CUCOL Ge A). co (TO -S11 . 


CANT SEMESTEe LENGTH FILL IN COL 29. 
CURRNTCINROW 20) = 77 


er as oo a Ke2e3, | 


(CURRNT (Tied), 6FQ0 277) GO. TO. ‘S30 
VRRNT-CITeJ) 2FQ. 0) GO. TO 53n 
tc NPK sal inwmeiecns: ee 


che 


0) $251527, 


SF Qe: 


wrens nw eee ate ee 


pee eres 


604 


“anana 


5R4 


_CONT INUF 


“TOROwW = 0 
= 


20 590 KelsLIMCUR 
 CURRNT(Ke3) = 0 
RUFFER INCLUNGTe1) (STREC(1) eSTREC(S00)) 


LADEM(CIDADN.?) = TANDFMCIDADN.2) + 1 


CONT INUF 
NUMWEFEK = 9 
SCHFDULE IADFM AGAINST RESOURCES 


CALL MATCHI 


UPDATE. THE STRECS. AND CURRNTS WITH SCHEDULED TA 
CALL MATCH? 
CALL CURPACK(1) 


ENTER WEEKLY ROUTINE 


-NUMWEEK = NUMWEEK + 1 


IF (NUMWEFK eFQe 15) GO TO 100 
TIME) = TIMFFC(1) 

REWIND LUNST toe Sy eden : 
OVFRAR = Oe $ OVFR20 = 0. 


T ANIM 
DO 671 T=#1e1000 


DO 621 JRP.3 


TADEM(C Tey) =0 desbeyresie 
CLEAR THF DISAPPOINTMENT TALLY - 


| A STRFC*. COMPUTF OPEN TIME 

UNIT eLUNST) 602.601 6204991 

Pow = 1pROW + 1 

IFCINROW eGTe LIMCUR) GN TO 620 . 

IF (CURRNT(IOROW of) eNEe STREC(I)) GO TO 920 
CHECK FOR 77 IN COL. 20 - NO WEEKLY SCHEDULING DONE 
IF (CURRNT(IOPOW?20) eFQe 77) GO TO 600 - 

SUM CURRNT TIMES . 

ICHK =O. « 


*TASUM = 0 “@ FILL = 3 


DO 694 J=4.70 | . | 
IF (CUPRNTCINBOW oJ) eFOQe %) GO TO 604 


TFILL = IFILL + 3 

ITIME = CUPPNTCIMROW «UP Z7INNCAN 
ITIMF = MONCITIMF se 1A) 

TASUM = YTASUM 4 ITIME 

CONTINU 


OPEN = CURRNTCINPOW.2) — TASUM 
SCHFOULING MECHANISM FOR WFEKLY CYCLES 


CHECK “OPFN AGAINST MINe SCHEDULE TIMP (SCHLOW) 
IF (OPEN ol Te. SCHLOW) 600.583 | 


ASTA& = STRFC(A) 


KEYAS = 9 
P = (ASTE& * AN) + 05 
IPPC = Po 


TF (STRECO7) eGTe IPRC) 5A16605 


4-66 


Se a ee eee en eer een ET 


fee epee ee ee 


KFYPS = 1 & (40 TO 417 
INAREA = IYVAPND (NUMARFA) 
-ICHK USFEN TO PREVENT AN ENDLESS LOOP 
ICHK = ICHK + 1 
IF CICHK eGTe 109) GO TO 616 
GO TO 6i7 . 
OVFRAR = OVERAR + 1 % GO ‘TO 600 
' GFT To THF PROPFR ARFA+ON THE STPFC 
N = STREC(A) + 9 
NO 6127 IST=1NIN 
IAPFA = STRFCCISTIZ1NANNANSANORND 
IF (KEY8S5 eFQ. 1) GO TO 607 
IF (TARFA .GT. INARFA) GO TO 622 
TF CTAREA eFQ. INARFA) 607+612 
-ESTATUS = STRFCCISTIZINTOALAN 
ISTATUS = MODCISTATUS?10) 
IF CISTATUS eFQe 7 «ORe ISTATUS eFMe 1) GO TO 612 
IF CISTATUS eFQOe 3) GO TO 612 Oe 
SEF IF THERE ARF FNOUGH WFEKS 
INYKET = STRECOCTST) 190 
NWweT = MOD (NWeT. 100) 
NN = 15 = NUMWEFK 
IF CNWKT eGTe NN) 6170609 
GFT HOURS. PFD. WEF 
JTIVWE = STREC(ISTI7100N0 
JTIME = MONDCUTIME INO) | 


ee ge eae TTD TF Cee ee Oe RR 


IF CJTIME eGT. 29) GO TO 613 
JUMP FOR OVER ZOTHRS SWK 


IOPEN = (OPEN — JUTIME) + SLOP 
- TF (CIOPEN e&LT. O} 6120613 : 
. STORE THE 1A IN CURPNT - 

CUPRNTC IPPON. TFILL41) = STRECCIST) 
OPEN sOPFN - JTIME 
PUT A TEMPORARY FLAG “IN STATUS 
UKPARTI = STRECCIST)/10NNDNNAN 
KPART? = MOD(STRECCIST)2100°0N0N0) 
STRECC(IST) = KPARTI # 1Q00NN00N + 3NNNNNDN + KPART2 
DROP THE CURRNT INTO THE DEMAND LIST 
“IDADD = MODC(KPART1.10000) 
IF (CITADFMCIDANO?) eFGe 0) 6752677 
- TANUM = TANUM + 1 
TADEMCIDADDe?) = TADEMCIDANNe2) + 1 
“TF COPFN ei Te SCHLOW) 6990614 
IFILL = IFN + 1 .* 
“TF CIFILL eFO. 29) 6154612 

_CONT INUE 

CONT TRUE | 
‘NO TA-FOUND IN AREAs GFT ANOTHER 
IF -CKEY8S eEQ. 1) GO TO 600 
GQ TO 605 _ , 
OVER?0 = OVER?O + 1 
°6O TO 600 


4 


. ncos4 | 
: | 4 - 67 , 


—_ % a 
“ERIC a a . 


END WFEKLY SCHFOULE 


CONTINUE 
CALL MATCH] 
CALL MATCH2 


COMPLFTION UPNATEe RYPASSING NON=SCHENULED TA IN CURRNT - 


DO 799 K=1,.800 

FINISH(K) = 0. 

O00 725 [OPoW=A, eLIMCUR 

NO 724. UCOL=4.20 

IF. (CURPNTCIORPOWs+JCOL) e£Ge0} GO TO 724 
IF (CURRNT CIDPOYs JCOL) eFQe 77) GO TO 724 
SEE IF THF IA IS SCHFNULED OR-NOT 

ISTAT = CIUPPNT CIOROWe UCOL) Z10%N|AANDN 

ISTAT = MONCICTAT.IO) 

IF -CISTAT FN. S) 712s 714 

CURRNT: (10P0W.3) = SHEPNEs DROS? + 1 

GO TO 774 - 

A SCHFDULFED FVENT. TEST COMPLF TION 
TACOUNT = MOD (CUPRRNT( IDROWs JCOL) +190) 
TACOUNT = TACQOUNT + 1 

JWEFK = CURRNT CIDPOWs UCOL) 7100 
JWEFK = MON( JWFEK. ICO) 

TF CTACOUNT e© Qe JWFFK) 716+ 718 
NO COMPLETION, UP THE OUNTFER 
CURPNT( TOROW. JCOL) = CURRNT(IOROWsJCOL) + 1 
GO TO 774 

A COMPLETION , 
IPARTI = CURRNT (TDROWs UCOL) 712 Q0ARNNN 
TRPART? = MOD (CURRNT CI DPOMs UCOL) 6 1NONENNO) 


‘| 


CURRNT(IDROWse COL) = IPARTI#1OQNDANAN + 1NNMNAANON + PARTE 


FINISHCTIODROW) = FINISH(TDROW) + 3 

CONTINUE 

CONTINUE j 
UPDATE THE STRFC ON DRUMs CHECKING FOR GRADUATION © 
LUIN = LUNST : ; 

REWIND 3. & REWIND 4 

IF (LUNST «FO. 3) 296.208 

LUQUT24 & GA TO 209 

LUOUTS=3 

CONTINUE 

IMR 2 O ; 
KGRAN = no . . ‘ 
IOR = IOR +1 

RUFFER IN (LUINe1) (STPEC(1) eSTRFC(SCN) ) 

IF CONTI Te¢LUIN) 7210¢722e7452991 

CONTINUE : 

IF (STR ceY eNFe CURRNT(TORe1))2 GO TO 920 
STREC( } “STRFC(B) + ca ee 

NO 730 JCOL= 4yPN 

IF (CURRNTCINR sJCOL) FQe 9} GO TO 73 

IF (CURRNT( IDR « JCOL) eFNe 77) GO TO 730 

KCUR = CURPNT( TOR. JCOLIsZIANANOONAA 


* 0. 
ERIC | 
_ =a 4 & 68 


yaa ae a She : Goede e Gise. Bo le : 5 - oe Brits Sasi pegiete se SP 


4 ‘ oe ' 


QOAIGA4 


2. yg eee ene Ste 2 


. 


\ 
\ 


% 


“Ww 2 STRECI6) + 9 


00.728 JST=10—N 


—KST = STREC(USTI ZI ONOONONO 


IF (KST «NEe *CUR) 728.726 

CONT LUE 

PRINT ©27. 1MPsJCOL eCURPNT (INP. JCOL) 
PRINT 925— (CURPNT CIDR sd) eJ=1e20) 
GO TO 999 —— 

STRFECC UST) = CUPRNTCIDR+JCOL) . 

CONT INUF 

CHECK FOR GRANUATION . 


“ STPEC(7) = STRFC(7) + FINISHCIDR) 


LF CNUMWFEK eNFe 14) GO TO 731 


ITEMPCTOR«1) = STREC(1) 
PTEAPCIOR«2A) = STRECI7) 
\ETEMPCIDRG3) = STREC(6) 
PTEMP (1064), = STRFCCB) 
ITEMPCIDR«S) = STREC(S) 


CONT INUF 
G = STREC(6) 


“GP = (G6 *.295) + 05S 


IGRAD =. GP 
‘TF (STREFC(7) eb Te IGRAD) 735s 740 
RUFFER OUT (LUIduUTel 3 (STREC (1) eSTREC(S00)) 


“TF CUNT TeLUOUT) 7366737 


CONTINUE 

TF. (NUMWEEK eFQe 14) 101041020 

RUFFER OUT (901) (ETPEC (1) eSTREC (500) } 
IF CUNT TsO) 1012510270 

CONTINUF 

GO TO 720 

CONTINUE 

‘SET UP GRAD FILE RECORD 

XPOINT IS THE EXIT POINT 

COMPUTE THF NUMBER OF WFFKS IN THE SYSTEM, 
NWEEKS = (XPOINT-STREC(2)9#14 + NUMVEEK 
KGRAD = KGRAD + 1 


GRAD(1) = STRFCE1) 

GRAD(?) = STRFC(2) _ 
GRAN(3) = XPOINT ; 
GRAD(4) = NWFFKS 

GRAN(S) = STPFC(3) 

GRAD(6) = STRFC(S5) ee 
GRAN(7) = STRFEFC(6) 

GRAD(8) = STREC(B) 


WRITE OUT THE FILE ON LU 15 
WRITE CISeTI1E) (CPANCTy eT Stet) 
FORMAT (10914) 

SETIS = le , 


SLEAR OUT CURPNTe AYPASS WRITING OUT THIS STREC 


SURRNT(IDR+1) = 0 

STOT = STOT - 1 

30 TO 7PN ; 
SORE WITH STPFC NRUM UPDATE 


4 - 69 


Ente | a : 2 


aoe renee ny pe — a oa 


ITEMP 
ITEMP 
ITEMP 


ITEMP 


{TEMP 


ONNSA 


ONT INUF 

AVF = 2 

Ls LIMcuR 

0 755 l=feLIMCUR 
AVF. = ITAVFE + FINISHC(T) 


VF = TAVF 
VFIN = AVF/AL 
Sum = 0. 
DISP = 0 


SUMz0 $ NCURKT=0 

0 760 TalaLInucur 

TSUM = 0 

JP = © 

3. 758 J= 4620 a 

= (CURRNT(TeJ) eFQ2. 0) GO TO 758 
STAT = CURRNT(1DROVs COL) 71NONNNNN 
STAT = MODCISTAT210) 

F (ISTAT eEQ. 5) GO TO 758 

f= CURPRNT( Ted) 710000 

ro = MOOCITs190) 

rSUM = ITSUM + IT 

gjR = KUR + 1 

INT INUE 

5 & CUPONT(T.?) = ITSUM. 

1M = EStiM + I¢ 

SUM = JSUM + TTSUM 

TURKT = NCURKT + KUP 

ITSP = INTSP + CURPNT(1+3). 

INT TINUE 

‘Fes SUM 

(FREE = AVF /AL 

'SP = TIOISP - 
'SP = DISPZAL 

(Fos JSUM- . : 

TIME = AVF /AL 

'F = NCURKT 

CUR. = AVF /AL 

AP LOGICAL UNITS AROUND, MAKING LUOQUT NOW LUIN 
INST = LUOUT 

CK THE CURRNT VECTOR 

iL CURPACK (2) 


Ee WEEKLY CYCLE HAS REEN COMPLETED 
ME2 = TIMEF(1) 


EKLY PRINTS 
Ks kKWwK + 1 \ 
INT A411. NUMVFEK. SNUM 
INT A434. KGPAN 

ANT G7fe TANtiM 

INT B45. OVERPO 

INT 847. OVFRAR 

INT 836+ AVFCUR 

INT 849. AVFIN. 


4-70 


AH054 © 


at hy OE aE SEDC LOE 


Pi. inch 


“PRINT 851+ AVFPFE 


_ PRINT @38. AVTIME 


PRINT A750 DOISP 


- PRINT 857 


PRINT 891¢ NOGOCNUMUFF R411) 


“PRINT ROP. NOGO(NUMUIFEKS1 6?) er 


“PRINT 893+ NOGO(NUMWEEK41—3) 
- PRINT AOGs NOGOC(NUMIFRK41 04) 


TIME3 = TIMFO — TIMF1 


PRINT 87%. TIME3 


LUNDT 1S CU OF THE WEEKLY DATA. TAPE 
WRITE CLUNDT e840) KiliKe SNUM eNUMWEEK eKGRAD eo IALIMeAVECUR « 


LAVF IN sAVFREE *AVTIME eI SP 0 (NOGO (NUM YE Fb) J) U1 04) 


GO TO 111 


END OF SFMESTER 
CONT INUF 

RFWIND 15 

REWIND 9 

SFMESTER PRINT STATEMENTS 


“PRINT 861606 SNUM 


as ye 


IF CSETIS eEQe 10) 7700771 


‘CONTINUE 


PRINT 865 

DO 76> f=1+e10NN 

READ C1S%eTTIS) CCOANC YU). Ja10e19) 
IF (EOF .1S) 763.764 

PRINT 863010 (GRAN( J) eJ21089) 
CONT INUF 

CONT TINUE 

CONT INUF 


‘TINR = INR-! 
’ PRINT 877 


“PRINT 878 
“PRINT 879+ CCITEMPC Ls J) oJ2105) el #1ef{1OR} 


GET THE NEXT SFMFSTFR ROLLING | 


- MID =e oO 
GO TO 9A 


CONTINUE 


_ REWIND OL | : _— 


STOP . a i 


r 


“PRINT 9210 STREC(1)+ (CCURRNT( I eJ) oJ=1e3)9 Tel eLIMCUR) 


GO TO 999 
“COMMON DRUM PARITY FRPROR FOR AUFF, 


| PRINT 992 f GO TO 999 


“WEEKLY FORMATS 


FORMAT (70 1°X,#WEEKS CYCLE TIMF IN MILLICECe =#eF 1000) 


\ 
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© cue ae: aeepeadsd Se tte 


anasa | 


FORMAT ¢(/77/7+20X.RH# # % % e#MID=START *#6144% STUDENTS RBUFFERFD IN 
IFOR SEMESTER NUMPER #e13e777) 


FORMAT (10x%e#AVERAGF NuUMRFR OF TA (-NDEPTAKEN #eF6e2e/) 

FORMAT (10Xe#AVERAGF HOURS COMMITTFD #eF8e3e/) 

FORMAT (13021 P1301 4e5FBe20413) . 

FORMAT (1H1e20X%+*OUTPUT FOR “EEK #e12e% OF SEMESTER NUMPER #01207) 
-FORMAT (//7010%e#NUMRFR OF GRADUATES .#01307) 

FORMAT (10X%e#NUMPEP OF CURRNT OVERFLOWS #0140/} 

FOR‘AAT (10X%e#NUMRFR OF EXCESSIVE SFARPCHFS #01407) 

FORMAT (19% e#AVEPAGF NUMAFR OF FINISHES #eFG030/) 

FORMAT (10% e*AVFPAGF FREE TIME<HOURS #eFBe3e/) 

FOPMAT (10% e#THIS WFEKS SCHEDULING HANG-UPS#e/) 

~FOPMAT (1H1eAO%HF NM OF SFME STE R i 

FORMAT (10K e 1L9eSKeA( 14 04%) ) 

FORMAT (1SWe*#THIS SEMESTERS GRADUATES #e/7) 

FORMAT (C19OXe#LENGTH OF STUDENT DEMAND ARRAY#.<1637) 
“FORMAT (10Xe#AVERAGE NUMBER OF DISAPPOINTMENTS *sFG030/) 
FORMAT (//920%e#S TUDENT STATUS DUM P¥e/) 

FORMAT (5X o# STUDENTH# 9 2X ¢ #COMPLET I ONS# 6 2X o# TOTAL # 02% e #DISAPROINTVEN 
LTS#C2KeHHOUP AVATL ot ee 7X etl eDeteSXe#TO DATEFs 15X0#TO DATE*s//) 
FORMAT CTX ele MK elGeGMelGeBXelGslenela) 

FORMAT CTEX eo #SEM-LFENGTH FXCESS HeGX el Ge) 

FORMAT (15% e#TMADFOUATE DEMAND HeAXelGe) 

FORMAT (15Xe*INADFQUATF TFACHERS *04X%el60/) 
_FOPMAT (15%0#NO CLASSROOM SPACE #e4%el60/) 

FRROR FORMATS 
FORMAT (/7705Xe8H* * # *# o#F A TEL FRR OR = CURRNT/STREC OUT 
“TCP. SEQUENCE # ese 1LOXe#STREC [S%e T4040 (10% 3110)) 


L FORMAT (/7e5%e8H*® #.# % © #EOF HIT ON LUNST RUNDOWN FOR NEW STUDEN  - 


TS INCLUSIONS. 47) 
> FORMAT (/7+5% «AH # % # s¥STUDENT TAPE REWOUND# 7) 
> FORMAT (/7/7+5X%eBH*¥ # # *# e#THIS CURPNT COULD NOT BE MATCHED TO A ‘ST 
TEFC HeBOC L1G ePK} 07) 

FORMAT (7/7e8%eRHE ¥ % # 0 #SEMESTFR SETUP OF CURRNT HAS LIMCUR »NF 
‘Y2 TO TOTAL STUDENTS ON DRIIMee 77) 
§ FORMAT (/e1CXeAHH % # ee STDENT Heldex BYPASSED DUF TO PARITY*) 
3. FORMAT (77010%95(114e?%)) * 
>. FORMAT (//+5XsRH* # * *# o#F A TEL FPR OR = DRUM PARITY#s//). 
» REWIND 


STOP - : é 

END , 
7 e ae 3 : : : , ey 
VENC he 


FullTxt Provided by ERIC 


+ Sp ees y qneres Cf EL 


2ST Pe SIS CSE aw tt 


we ete tees 


anna? — 


f 


a 
? 


SUPROUTINE DATAPEAN 


“COMMON /A/Z NUMRFS. ICPFS (15.1435 ICRESCAP(1I5). 


YTTARFQCINON.1N)« TMAX 
COMMON /F/ NUMVFFK e NUMARE As SNUIMe 
COMMON /R/Z NUMINST « NTFACH(4 014014) 


COMMON /S/ NUMSEMe NUMSTUD(12)¢« SCHST. 


COMMON /T/ STIMGST (4) 


CORVON 7 FTWORF SUIS 62) ¢ IWOAREACIS cele TUDINS (Ase #1WDIStSe2) 


READS DATA FOR FDS IMA PROGRAM 
INTEGER SCHLOve SLOP 
OIMENSION TREGHLDO10) 


INPUT NUMRER AF SEMESTERS MODEL TO PUN? 


RFADN( 600101) NUMSEM 


NST e 


SCHLOV. 


NIA. 


SLOP 


MAXIMUM=12 


INPUT NUMPFR AF STUDFNTS FNTERING SYSTEM EACH SEMESTER eMAXIMUM=300 


RPFAD(GC+e1N1) (NUMSTUDCT) « F=leNUMSEM) 
INPUT SCHEDULE VAR TAPLE eMUST=1 OR GRFATER 


PFANC600107) SCHST 


SCHLO=LOWER LIMIT OF SCHEDULE PROGRAM | 


PFANDCANs101 YSCHLOY 


SLOP=ALLOWED VAOIANCE IN IA SCHEDULING 


RFAD(60+¢101) SLOP 
STUDENT TIME NIST $2210 €2)215 
READ( 404102) (STIMOST( IT) se 1=104} 


(O»=20 


-INEUT TMAX a MAY TMUM TE ACH ENG FOR SFMESTFR LENGTH IAs 


READ (6%197P) TAX \ 
INPUT TOTAL NUMBER AF 1Ae MAXIMUM = 
RFAD (69.191) NIA 


INPUT RESOURCE MATRIXe NUMBER RESOURCE TYPES MAXIMUM 


READ (6%+191) NUMBPES \ 
INPUT RFSOUPRCE CAPACITY | 


. TADD=”0D CIRFQHLD(1)2+10000) 

IF (IT RFQHLD (7) 6F 009) IPFQHLO (2 )=1 

IF (IRFQHLD (3) eGTe 1 4) 1 PFQHLN(3)=14 
IF CIRFQHLD(3)eLTel ) IRFQHLD(3)=1 

IF (TREGQHLD (2) eGTe50) IRFQHLN(2)=50 
IF (IRPEQHLD(4) eFQe 0) IREQHLD(4)=5 
IF CIREFOHLD(S) eFQe 01) TREQHLN(5)=25 
IF (TREGHLN (6) oFQ00) IREQHLD(5)=999 
IF CIRFQHLD (7) eGTe 25) IPFQHLN(7)=?5 
IF CLREQHLD (9) .GTe 25) IRFQHLN(9) =25 
ITF CIRFQHLD (10) eGTe 15) IREQHLN(10)215 
IF CIRFQHLD (10) eL FeO) IRFAHLD(10)=1 
IF (ITREQHLD (6) .GTe3) IRFOHLD(6)=3 

IF CIREQHLD (8) eGTe3) IRFQHLD(8)=3 


IF CIRFQHLD (8) eLTe%) TREQHLD(S)=1 


IF CIRFOQHLID (5) eFQe1 )102 

IRFOHLO(5)25 & IPFOHLD(7)=5 

CONT INUF Bigg 

IE CIRFOHLN (A) .FQ00)G0 TO § ; 

IF (TREQHLD (6) NF e IRFQHLN(8))9GO TO S 


ERIC BO 4-73 


17700 


“READ COM INLICICRESCAP(IT)el=le NUMPRFS) 
INPUT IARFOQ MATRIX (DIMENSION 1700 X 10), 
‘00 2 TeleNTA & PFAN 1N3e(TRFEGQHLO (J) »J=1e10) 


(J)=25 CUMULATIVE DST 


LESS THAN 1 


FU+ ©) 


att MO 


one 


IPF QHLD (7) =IREQHLO (7) +IPFQHLD(9) 
_ TF CIREQHLD (71467025) IREQHLD (7) =25 
_ TREQHLN(8d=0  $ IPFAHLD(9)=0 
IF CIFEQHLD(5) LL T2999)GO TO 6 
~ TF CIRFQHLID 07) eFQ20)GO TO 6 
~ TF CIRFQHLD (5) .GTe800) FREQHLD(5)}=800 
TF (CIREQHLD(6)eFQe0)GO TO 7 
. IK=TREGHLD(10) 
“TF CIRFQHLD(S) eGTe ICRESCAPCIK)) TREGHLO(5)=ICRESCAP(IK) 
DO 8 K=1910 
TAPEQCTAND eK) = IPFQHLD(K) 


. CONTINUE: 
INPUT MUMBER OF WEEKS PER SEMECTER« MAXIMUM = 14 
READ (6001N1L» NOWEEK ; co 


“INPUT RESOURCF MATPIX 
pO 19 T=}e NUMPFS 2 
EAD (690101) CICRES CT eJ) ese NOWFEK) 
“INPUT TEACHING RESOURCE MATRIX« NUMINST« MAXIMUM = 4 
REAM (60.191) NUNMINST . 
INPNT NUMRFR OF APEFAS+ MAXIMUM =f4 
READ\(60.101) NUMARFA 
_INPUT\TFACHING MATPIX 
PO 15 N= le MUMINET : 
DO 15 Ki = Te NUMAPFA 
RFAD(600101) (NTEACH( IT oe JeK) e U2] eNOWFEK) 
INPUT OUTPUT HFANINGS 
-DO PN Ts1eNUMDFS 
 PFAD 10446 CIWOPFSCL ed) eJe1e2) 
DO 25 I=1+eNUMARFA 
PFAD 104¢(IWDARFA(TeJ) eUtiz2) 
DO 27 T=1+eNUMINST 
READ 104+ CIWOINS( 1 oJ) eJele?) 
DO PAl=I6S & 
PEAD 1N4e(IWOIStlsJ)eJ=102) 
“PRINT 2115 S PRINT 129 & PRINT 1725 & PRINT 130 
‘D0 30: f=1.NUMPES . 
PRINT 159. CIWORES( I eJ) oJU= 162) . @ 
PRINT. 119+ C1CPES(I oJ) eJ=1 eNOQWEFK) Ot 
‘PRINT 135 $ PRINT 140 °S PRINT 145 
“PO 35 Is=1leNUMINST 
‘PRINT 150¢CIWOINS( IT oM) Mele?) 
-DO 35 K=!1+NUMAREA 
| PRINT 150+ (CIWDAREA (i eN) oN=l 02) 
“PRINT LIN (NTFACH(C TL etek) eat eNOWFFK) 
SOATARFAN FORMAT STATEMENTS: 
FORMAT CIS14) i 
‘FORMAT CISF4,N) i 
OBA GLO Ncs eee aeons 12stiel20aXet2). 
‘FORMAT( PAB) 
FORMAT C140 2%015)) 
FORMAT (37% +#PFSOUPCFE LOADINGS FOR RUN#/) 
FORMAT (29% e#AVAILAPLF CLASSROOMS#/) 
“FORMAT (44Xe*#TYPF X WEEKS#7) : 
EE OGM TCA Ie ACN AC TTY x GUE AVATLARLE PEFR WEFK#//) 


ERIC _ a a | baiih.., 


nanss 


Sete tet ee 


et. te 


: FORMATE 113% ) #AVATLARLE if NSTRUCT 1 ON*/7) 
‘FORMAT 40x.#APEA Xx WEEKS X TYPE# /) . 


FORMAT (32K e*NOe FACULTY MEMBERS. x TEACHING, LoaDeys) 
“FORMAT (78 1Xs2N8 07) - . & 
anil "* END 7 


BEST COPY AVAILABLE “3 


JBROUTINE MATCH! 

IATCHFES TA REMANDED WITH AVAILABLE RF SOURCFS 

NTEGER | SNUMs STOT.- . yo, 

;ONMON ‘SAP NUMRES » TCRES(1G 6 14) + ICRFSCAP(IS)« NIAe 

"AREQCIONN 1076 TMAX | 

1ONMON 4B/ NUMINST NTEACH14014014) 

"OMMON /F/ NUMWEFK « NUMAPTAs SNUMe NSTe STOT ten * a 2 Re 

ZOMION | Ae TANEMC1ONOe3)e | TALIM. - _ TEST 

SOMMON/Y/TVOPFS (1502) eTWARFA! 1402) ¢IVDINS(442) sIWDIS(S62) ae 

SIMENS ION. NTMAX (4914) eNTSUM( 4014) eNTEWORK (4514014) e IRESVK(15014). 

MENSION NUMNTS(Se1Ge1l)eNFXO(14) | 

XIVENSION ICRSTAT(15014)¢ IRMEAN(15) ¢STD (15) sIREOWC1S) e IRHIGH (1S) . 

)IMENSION - ISSOC15) sAVG CIS) e ITESTAT (4014014). 

IHECK TO DFTFRMINE IF REGINNING NEW SEMESTER | ae a 

lOWREK = 14 — 

ELOAD TEACHING RESOURCE MATRIX es 

-C(NUMWEF K eGTe GO) 202. : *s 7 

Slats NUMINST * 2:e 2 * = 

5:5 Jale NOWFEK 
Se *NUMAPF A 

WORK (1 Usk) =NTFACHE Teds > 

FLOAD- ‘TMAY MATRIX Ot eee oe _ 
7: Tele NUMINST # ee a _ ues 
“7. Jzle NUMARFA ere: 

TEACH = NTEACH (leteJ) : cs 
BAX (Te) = ATFACH * TMAX * 3 e 8 

UM( Tes) em, 

LOAD CLASSROOM RESOURCE MATRIX _ _ a a a 
‘9 1 = te NUMPES - . ‘ oe “ae ee . ee 

O 9 J = Te NOWEEK a - paar 

ERESWK (IeJ) = ICPFS (Ted), 


eteetecn A, comets -enpmertsines io 


SUM TEACHING PFOULRFMENT =” 7 t. rn Tar 
IO UL IsteS & MO 12 Jelel4 & DO 11 Ketel! Hs, ene. 
NUMDIS{T ede eO | | . = . _ ar oe ee ae 
IO. 1A terete a = a 8 ‘ ond 
SEXDCT)=0 - © 2 ee eee a Se ange 2 


90.15 1 = te TALIM 

FF. CTADEM(1+2) eFGQe 0) GO TO 15 

Le. z TADEM( Set) : woe 

rb = IARFOCIE 61710000 | : . my 2 ay sas ae 
tf CTARFOCIE #5) FQ2999) Go TO.15 © aa er ee ae 
O18 K = 6A | ie ee rr ae er 
F CIARFOLIE eK) 0FG000) GO TO 15-. OB B+ 1) HR 
UM CTGe ID) = NTSUM(DGSID) + TARFOUIE SEL) : ee ae 
FANTSUM( 1G, 10) oLE sNTMAX (TG, 1093 GO TO 15. 


DEM( 162750. * TADEM( 123951 
COME 1 = TMAX EXCERDED 


YADEM(1+?)£0 $ PADEMOT 63021 
ONT INUF a . 
ZMAX. AND: ‘SEMESTER | SETCS ROUTINES: COMPLETED | 
ISOM = 0. | : eet Raney 2 hee net” 2, 
BO PS Tt = ve TALIM * e oe ee ek ao 
es cr seen ae _  anasea 
if Ve 2? 
at \ 
. 


rn 


SDM. = ISOM + TADEM (16?) 

NXWEEK = NUMWFEK ae a Dee. ae 

IF (NXWEFKeEQ.0) NXWFFK a aa 4 
0-80 TA = 1e TALIM 5 NN . gee Spa et a 

IF (IADEM (1Ae3)sEQe1) GO. TO 80 a. ' ia 

F CIADFM(1A02) eFQe 0) GO TO BO | _ = | 6 . wet ofa 
Eos TADEMC(TAg1$ a4 _ a 

D = TARFQCIF 419710000 os oe 

TEST TO SFF IF IA 1S SFLF sTunY . _ 

IF CTAREQCIE s&) 6FQ0999) GO TO 62 . . awe a oe 

TEST TO SEE IF STUNFENT.DFMAND ADFQUATE | . _ ,. ee, ee 

IF CTADEMCTAs2) LTeTARFQ(IES4)) 35 « 38 : ae ee 

FMAND INSDFQUATE CONF = ‘2— rg, Me 

Reh fs (esnuwericslby ceimb 1s 1S6WNERSs 1O)eLADeWC TAR) 
TADEM(TAc2)=0 $ TADEM(IA03)£2 $ GO TO 80 ~ 

‘TEST IF DEMAND FXCFEDS CAPACITY | 

IF CTADEM( 1A 92) oGTs FARFQL IE 05) 940042 

NOVER=s LADEM(1A0?)= TAREQCIE 6S) 

TADEM( TAs?) STARFOCIF 6S) | 

NUMD I (5 eNXWEFK 6 1D) SNUMDIES (5 ¢NXWEEK + 1D) +NOVER 

NEXD (NXWEF IC) ENE XD (NXMFFIC) +1 ” 

REGIN. TO CHECK RESOURCES : “oe bat ee ne ee | 
CHECK TO SEF +F TFACHFH AVA+L ARLF. a ~ ae an a) 

Il @ TAPFQCIFs6) | ee ; —— aha 9. ee gh 

IF CTARFOC TE 07) GT aNTEYORK (TT eNXWEFK 1D) ) 44008. BM 

“LACK OF TFACHFRS. CONF = 3 ; 

-NUMD TS (3 ¢NXWEF Ks 1D) =NUMDIS (3 oNXWEEK 10) +TADEMCTA02) ae 

 TADEM(TA02)20 & TADEM(IAs3)2#3° & GO TO 80 ee Ae we OF 
VIF CTAREOCIF 6A) eFQ90) GO TO 54 - ~ ee eg ee 

STDS: TARFQCIESB) Egle tie * 

UIP CIARFOOIF 19) sCTeNTRWORK (IT sNYWEFK + 1D) ) 50.54 

wwLACK OF TEACHERS CONE = 3 


IADEM(1A.?)20 cf TADEM(TAs3) 23 $ .GO 


80. dee he Mee. 
CHFCK. TO SFF IF CLASSROOM AVAILARLFE ; : 


NETe ICRFSCAP (IX) #TAPFQCTES2).- . 
IF CNET e¢GTe IPESWK CTY eNXWEEK)) 690 68 
ACK OF CLASSROOM CONE = -4 oe sae oe 
UMD I'S (4 NXWEEK » 1D) =NUMDIS (4 gNXWEEK  TD)-+TADEMAYAG2) 0 Pee 

eee, S$ “TADEM(TAe3 s $ GOTO 80 \ _ 


. 
san ar ee cern eaeewamane ete fT 


an saoe Peis [: ® eneiene, scat er ee en, 
B15¢a were 10) anno 4 AEE iO +TAENG TAGES “5 ON 
| gale 24 GO TO 60 oN 


SOM = spy + TADFM (162) 
NXWEEK © NUMYUFEK 

IF (NXWEFKeEQ.0) NXWFFK = 1 

DO BO IA © le TALIM 

AF CTADEM (1Ae3)eFGe1) GO TO 80 

AF. CITADEM(TAs2) eFQe O) GO TO BO 

TES TADEMCTAs1) ne = 

D = IARFQC(IF.1) 710000 

TEST TO SFF IF IA 1S SFLF STUNY 

YF CLARFQC IES) eFQ2999) CO TO 62 

TEST TO SFE IF STUNFNT DFMAND ADFQUATE 

FCTADEMCTA 02) eL Te FARFQ(IES4)) 35.¢ 38 = he ae 

QEMAND INADFOUATE CONF = 2. | 

UMD. S (2 aNXWEFK «.1D) *NUMDIS (2 sNXWEEK sTUDFTRUCM( TAs2) 

ADEM(TAs?)20 $ . TADEM(IAd3)&2 § . GO ‘TO. 80 

TEST IF. DEMAND FXCFEDS CAPACITY oo ee 

FC LADEM( TA 02) eGTe LARFQ(1E95).)40042 | ° 

OVERS TADEM(1As? )-IAREG(IE 0S} se ieee ee 
ADEM(TAs2) SIARFOCIF 6S) / - &5 

UMD S (SeNXVEEK TD) SNUMDIS (5 sNXWEEK» 1D) 4NOVER 

NEXD (NXWEF IC) SNEXD (NXWFFIE) +1 : 

GIN TO CHFCK RF SOURCES - 

CHECK TO SEF 4F TFACHE= AVASL ARLE 

= ‘TARFQ.CIF.6) ek ba. ie “pad 
r- (TAREQUIE #7) sGTSNTEWORK (TT «NXWEFK« ID) 9 44048. a: Sage gett 
ACK “OF | TFACHERS 9 CONF = 3. | 

JUNDIS (3 .NXWEFK 1D) =NUMDIS(3 ¢NXWEEK 610) 41 ADEM( TA62) 
FADEM(TA+2)20 °S TANEM(TA03)2£3 & GO To 80. 
FCTAREQCIE +A) eFQe0) Gp TO sa 

T= ITARFOCIE.®8) a | 

FCTARFQ(1F 19) eCTeNTFUORK CTT NXWEFK + 1D) 9 Soa 

ACK OF TFACHFRS CONE. =:3 

UMD IS (3 ¢NXWEF IC 6 1D) ©NUMOTS (3 oNXWEFK «10941 ADFM( 1A02) <, 
ATADEM(TAG2? 220 & TADEM(TA03)®#3 & GO TO.80° ..... |... a 
CHECK TO SFF AF CLASSROOM ENS oy — 3 

¥ = TARFOCIE.1IO).. Se ta B 

ETSICRFSCAP( LX) #IAPFOCIE2) 

IF (NETeGTe IPFSWKCIX eNXWEEK) ) 60. 68 

“LACK OF. CLASSROOM COME = 4 ; ae 

INUMDIS (4 2NXWEEK + 1D) 2NUMDIS(4+NXWEEK’s 1D) 41 ADEMC 1A.2), : 
ADEM(1TAs2)2Q, & TADEM(IAe3)24 $ GO TO 80 

‘CHFCK CLASSRONM FOR SELF STUDY 

IX as TARFQCIF 219). 

H = LADFM( TA?) *. TARFQCIF 62) | 

F CTHeGTe TRE SMC CTX eNXWEEK YD 64+ 68 © 
I7ETADEMUTAs2)—1 eos oe ee ee 
1O 66 12 = te NZ.” ; 
Hoe CIADFM(TAs?)<IZ)#IARFQ(IE62) oe te. 
RA aaa Salas Go TO 67 . : , 
NTINUE / 


ADEM(TAs2) a 0 s_ TADEM(TAG3) =4 #§& 60 To 80 
DEM(TAs2) = FADEM(TAe2) =12 ogo 


| 4 - | 


Ce ALLOCATE RFSOUPCrS. 1A SCHEDULED TEACHERS 
. GROTY @: TARFA (1e 63). a 

ce: eh KONT & NXWEEK 4 Ty = yy : 

a Pen ey 7: TF. CTARFOUIE es) eFOs 999) GO. TO 76 

eee es TIS TARFQCTIF Gy 


- - 00 69 Is = NXWEEKs KONTs - 
69 NTEWORKGIT, ras DDENTEWORE CLT TJs 10)—1ARFOCIE 47> 


woe. RO GLAREQC IF 6A) 6FO60). so TO 72 
TTRIAREQUIF 8) . a a 


DOO 15's NXWEEKs KONT. 1 he 
70 NTEVODRI Lue IDIENTEVORKELE Tas tO= “HARFOLIE LOD 
C .. ALLOCATE cLASeROOME To TOUGHT .TA_ 
_ . 72 PO 7A-ty = NXWFEK eCONT SI. 
eles Te IRFSWKCIX6 TU) = IRFSWKET Xs Ty), ~ NET 
"GO TO ABO a= 
CC. . .ALLocate - CLASSROOM. 70 SELF stuby: 1A ee 
: 76 00 7h 1d = NXWEEKs KONT. 1 
(7B TRESWKCIXs TU). * ee ~1W 
80 CONTINUE. 


. . ©., > SUM SATISFIED STUDENTS eu Co ee aoe ae 
-NSTSAT = 0 re 
DO 82 1 = 1. “TALIM 4 Ge en th eine 4 ee 
8? NSTSAT. «= NSTSA TADEMEt 62) = | ve 3 
c _ OUTPUT STATIETICS FOR SCHENUL ING: PERIOD 7 


TF (NUMWEFK EQ SD)GO TO. 140. . 

TF UNUMWFEK ER. 14960: TO 200s RETURN aa 

100 PRINT 1216 SNUM 6 Sd 7 

- PRINT. 1220-NST ess 
“NOLO = STOT-NeT) 7 Pe ae 
PRINT 123+ .NOLD oe 

. RETURN. 

200 DO 205 121,15 a ee oon fe, 
I RMEANCT y20 € sTOtr=n S FSSQCT32N =—§ AVG 2009 
tours ees, ast 
| TRAICH CL Mt cRre (re 1ay— SIRF SWOT S14), 

: DO. 2NS Yy=l,14 

208 ICRSTAT (TJ) BICRES(T, 0) = ~IRESWKE Tea) 
PO -PIALT EIS AO ana St 

_ IFCICRSTATCT 6J¥sL Ts IRLOWCT) JIRLOWC 1) @1CRSTATET 69) . 
te gE LORSTAT CTs 3667s TRHICHET)) TRHICHCT = TCPSTAT CL Sa}. : 

208 TOE ANE Loc deere TATOPETAT (Te J) 7 an % 

we IRMEANCI)SIRMEANCI)/1Q eee re een 

“gy AMIRMEANCTY os. PRRICRES( Tou) a ve as ee, ee ee 
jw DO P20 Te1,15 Do pia. Jeleia nes 

218 AARNE SSoe Fyn’ | MEANT TIMTCRSTAT Ts y04a. be ee a5. ae 
E AVARSTSSOCTY7 14 os yt can 2 

D STOFTSSOPT (AvAPD ce ona 

J PRINT APA = PRINT 230 “PRINT: 231 a : 
IO FORMA (PSX HRESOURCES: SCHEDULED DURING. SFMESTER-FIRST. LINES. 7) 
FORMAT (Pix #Pr SOURCES NOT” ‘SCHERULFD | DURING: SPMFSTER-SECOND LINEe 7 

DO: 240 Te1.1s: | 

PRINT - 127 CIWBRES CT 0M) aie oop: * PRINT P HPMSCTERSTATET iy oet 14), 

PRINT. ei Migs egh al eed re ee Pa 


ae 


he 78 


erie 


PRINT 241,.°6NUM 6 PRINT 242 
PAY FORMATE /7 9 2X. FPFCOURCE STATISTICS FOR CFMEETFR NUMRER#E, TY e120 /) 


Pa? FORMAT (5X 4 HOE SOURCE # 910K #CAPACITY# 6 5X4 #HIGH Low MEAN a 


ts*STD DEV# 5X. #AVERAGE #67) 
“DO 245 121215 
PRINT 244e CIWNRES (Led) 6 Je1e2) eICRESCAP(1) + IRHIGH(T) + IRLOWL 1) « IRMFA 
« YNEGPARSTNCT) cAVGCT) 
245 CONTINUF : 
_ 2a6 FORMAT ( PXePAR4 11% 6 146 3X01 403% 14 62X 016 3X FR 20 3X oF B02) 
‘ 00 499 Jete3 
DO 305. Ie.) 
" TRMEANC HE) = O°. 
STOC1I9=N.M & 1S6Q(1)9=0 
IRLOW(1T) 2 NTFACH( Jelel) = NTEWORKE (Jelel) 
IRHIGH(T) = NTFACH( Set 4el) — NTEWORK( Je lael) 
DO 305 K=1.14 . 
BOS ITE ATAT Sokol) = NTFACH( Sek el} ~ NTFWOOK( Joke!) 
. DO 319 Isteli 
‘MO 308 K=1e14 
IF CIRLOW(T) eGTe ITESTAT(Uekel)) FRLOVCT) SITESTAT(UsKel) 
: IF CIRHIGH(1) eb Te ITESTAT(Se%ol)) IRHIGH(I)= ITESTAT( Joke) 
308 IRMEAN(CI) = IPMFAN(T) + ITESTAT Usk el) 
: A = IRMFAN(I) . ¢& B = NTEACH(Jelel? 
A = A/14- ‘ i 
OT RMEANCT) «= IRMEAN(C1) 714 
310 AVGC1)&A/B - 
20 320 Tetetl ' DO 31P K=1.146 
(B18 ISSOCT)STSESACT I+ CCLOMPANCT)-ITESTAT (Jer oT) )##2) sf 
AVAR = 1seq(1} 
\. AVAP & AVAR/14¢ 
4920 STO(T) = SARTCAVAR) : 
id PRINT 125 s PPINT 230 $ PRINT 231 
PRINT 1270 CIVDINS (eM) eMe1 0?) 
NO 3230. f=tel! 
-~ PRINT 1270 CIWDAREACT oN) eN@102) 
+ PRINT 128¢ CITESTAT(JeLeol} sL=le14) 
330 PRINT 128¢ (NTFWORK(JeLel) eL=1014). 
"PRINT 341646 SNUM « PRINT 3242 
“DO aS TH=telt 
345 PRINT 32469 CIWDAREA CT oN) oN=102) oe TRHIGH( 1) os IRLOWE 1) se IRMFAN( 1) 
te) WSTOCTY «© AvGtT)y - : 
40% CONTINUE 
341. FORMAT (7770 2X se #INETAUCTION STATISTICS FOR SFMFSTFR NUMAFP #1207) 
a2. FORMAT (SX e#RESQURCE# +. 19% e #HIGH Low MEAN STD NEV 
Lo AVFRAGF#./} 
jag FORMAT: (PX ePAB SX 010 02% e1de3%e 140 3¥ sF Bs 20 3X sf He2) 
PS ‘FORMAT. (/7/s40Xs#T FE ACHER MATRI X¥e/) 
_ PRINT 133 - 
00 116 I=}e)1 
‘PRINT LSTA TNDAREATT sNtsNei ve) 
©. 900.116 y2leS 
16 PRINT 1320 CIWDIS( Joi) oe] o2) 6 (NUMDIEC Jebel oLe 1914) 
21 FORMAT ({H1e3RXs#STAPTING SEMESTFR NUMAFRH61Xs 1207) 
2? FORMAT (35K eT 30% “GTUDENTS ENTERING CYSTEM#S/) 


4-79 


nnne 


122 FORMAT (32X%e13e% STUNFENTS RFYAINING IN SYSTFM#e/) 
126 FORMAT (724?X,#PFSOURCE MATRIX#e/) as 
127 FORMAT (41X%e?ARe/) 

128 FORMAT (14(2xX,15)) 

130 FORMAT (1H1e27X%e#RESOURCE. SUMMARYe END OF SEMESTER NUMBER #.120/) 


131 FORMAT (?27xX%e#RESULTS OF SCHFNULING FOR THE ENTIRE SFMESTER#./) 
13? FORMAT (2% ¢2A8 2% e146 2%e 15)? 


133 FORMAT (HI «44x «#01 SAPPOINTMENT FILE #e//)} 


PETURN 
FND : S 
: nan 
} 
) 
[ 
am t 
i: 
4 
| a 
ie 
- 
: —_ Ser 
- ae 
‘~% 
~ - - ~\v an 
e 


ERIC . | . 4 = 80 -  G | : 


ann 


6n 


85 
508 


4m 
50 


7 


ERIC 


SURROUTINE MATCH? 
UPDATES CURRNT FROM TANDEM RFE CYLTS 


REWRITTEN 11716 TO MAKF TANDEM ARRAY AN ANDRESS LOOK-UP 


COMMON /C/ CURRNT(ANN62N)s LIMCUR 

COMMON /F/.NUMUIFF Es MUMARFE Ae CNtIMe NOTe STOT 
COMMON -/417> TANEMOC19N0~<3)« TALIM : 
COMMON. “NZ NOGN(1565) _ 
INTEGER CURRNT 

NO SN TROW = 1eLIMCUR 

DO 4R JSCOL=4.00 _* 

IF (CURRNTCIROW*sJCOL) eEQe 0) GO TO 48 

ISTAT = CURPRNTCIROM.<UCOL371000N0NG 

ISTAT = MONCISTAT?10) 

IF (ISTAT e&N. 7) GO TO 48 

LACODE = CURRNT CIRO. UCOLIZ1NCAAACHO 

IDAND = MODCIACONF.+10000) 

IF (LADEMCIDANN Ss?) eGTe 0) 40645 

IPART = MON(CURPNT(TROWeJCOL) «10NMMRAANY 
TOFPLAC = FACADE HINNNNONOCO + FOCONTAA + ITPART 
CUPRNTCTROWsJCOL) = IRFPLAC 

DROP ONF STUNFNT FPO SCHe LIST = TO GFT EXCESS TAKEN CARE OF 
TADEMCIDADNe 2) & TADERLIDADD «23 - 1 

GO TO 4A 

IPART = MON(CURPNT CTROWsJCCL) » 100NNNNN) 
IRFPLAC = IACODF#ICRONNNEN + SANOANn|AG + IPART 
CURRNTCIROWsJCOL) = IRFEPLAC 

CONTINUE 

CONTINUE. 

NYk = NUMWEEK 4 1 


“DO TNH KeteTALIoM 


KTYPE = IADFM(Ke3) 

IF (KTYPF eFO. 9) GO TO 79 
NOGOCNWKeKTYPE) = NOGOCNWKeKTYPE) + 1 | 
CONT INUF . 

RETURN ‘€  - FND 
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TFS 


~ C10 


’ FUNCTION HOURS (X) a 


GO TO 15 


GIVES BACK STUDENT HOURS PER WEEK 
CURPENTLY 4 POSSIRBLF HRS/WK = 8/74 
COMMON /T/ STIMDST(4} 


_DIMENSTON HR (4) 


SET THE HOUR COMRINATIONS ; 
HRC1LI=PN. $ HR (P)=eP5e F HI (372S730e L 3 
RAND = RNOG(?) Le 
RAND = RAND/100.¢. , 

DO 10 Jale4 | 

IF (RAND eLfe STIMDST(U)) 12010 

CONT INUE 


HOURS = HR(J) 
RETURN 

HOURS & 3156 
PRINT 20 


tect Te 
a ee 


HR (4) 2356 


ae 


FORMAT (705% e#FRROD IN HOURS, —-—= DIST. FELL THROUGH*./) 


RE TUPN $ END 
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SURROUTINE CUPPACK(T) 
ROUTINE TO PACK THF CUPRNT VECTOR, DROPPING ANY GRANS COMPLETELY 
AND REMOVING ANY COMPLFTED OR UNSCHEDULED IA , \ 
“COMMON /C/ CURRNT (ANNAN) 6 LIVCUR ; , 
COMMON /F/ NUMWEEK «© NUMAREAs SNUMe NSTe STOT 
DIMENSION KSAV(20) 
INTEGER CURRNT 
DO SON LeleLIMcuR 
KK =n $ K77SET = 0 
NO 18 M=1e20 
18 KSAVO(M) = 9 
IF CCURRNT(L«?O) eFQe 77) K7I7SET=1 
3M ‘DO 49 K=4e19 © 
TF (CURRNT(Lek&) eF Me 19 GO TO 40 
LOMO = CURPRNT(LeK) 710N0CCC00N 
IDMD = MONCTOMO.1O) 
IF CIDMD «FQO5xc 7) 354 33 
33 CURPRNT(LeK) = 9 ¢ GO TO.4n 
35 KK = KK + 1 
KSAV(KK) = CUPRPNT(L oi) 
49 CONTINUE 
KLIM = KK 44 
NO 45 JeaeKtLIou 
45 CURPNT(LeJ) = KEAV(J=3) 
RLM = KLIM+ 
DO 47 J=KLIMeSN 
47 CUPRNT(LeJ) = 9 
IF (K77SET eFQe 1) CUPRNT(L+20)=77 
59 CONTINUE a : 
TF CT eFQe 1) 52454 
S4 CONTINUE 
SECOND PHASE - neop 0 SLOTS NUE TO GRADUATION 
LIML = LIMCUR 
jRe-+0 
PSN IR = 1P + 1 
? te (IR eGTe LIMI) GO TN 3rn 
IF (CURRNTCIR«1) eFQe 1) 2608250 
260 LIM? = LIM1 - 1 
DO 270 IPR=IR LIM? . . 
DO 265 J=#1420 
265 CURPRNTCIRReJ) = CUPRNTCIRO+41¢6J) 
270 CONTINUE a 
mR = IR = 1 ' 
LIM] = LIM? = 1 
GO TO 250 
300 CONTINUE 
ZERO Pace TAIL FNA OF CURPMHT — RESET LIMCUR 
LIM3 =. LIMt + 1- . eee ; _ & 4 
DO 305 L=LIM3eLIMCUR 
DO 320%. Je1.20 
305 CURPRNT{({Ley) = 0 
-" LIMCUR = LIM! 
52 RETURN . $ FND 
ran 
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FUNCTION ITVARND(NSLOTS} 
FUNCTION TO GIVE A PANDOM NUMRER BFTWFFN 2} AND THE INPUTEN 
VALUE. OS NSLOTS : 
IF (NSLOTS eLFe 1) 8019 
RB IVARPNOD = 1 
PF TURN 
19 SLOT = NSLOTS 
OV = Le/SLOT 
RAND = RNOG(7) 
“HOLD = RAND/OIV 7 
IVA = HOLD+1le ; 
IF CIVA eGTe NSLOTS) 15220 
15 PRINT 39%. NSLOTS, IVA 
_ WA = NSLOTS 
20 IVARND = fvaA 
30 FORMAT (7/765X%_#FRR0R IN ITVARND = VALUF PE TURNED IS NOT PROPEPR#. 
PAX e#NGLOTS =H#eT Se S%akIVA =¥0 75) 
RETURN ¢ FND. 
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17 
19 


(25 
30 


35 


FUNCTION PNOG¢ ICODE ) 


REVISED S/11 wITH EXPANDED CONE 


COME = 1 SET SFEN 
ICOMF = P THRU & RFTURN INTFGFRe LENGTH OF ICONE 


ICODE = 7 RFTURN REAL O TO le LENGTH 5 DIGITS 


IF CICODE eGT. 1) GO TO 15 
TA = 998A77 . 

IFAC = TA # 48470314 . 
TR = MODCIFAC. 214787646) 
IC = TAPS(1R)7100 


(NOW SPLIT VIA CODE 


TF CICOME «FQ. 1) 17019 
INDEX = 100 $ GO TO 25 
IF CICODF «£9. 7) GO TO 30 


INDEX = 1O## I CONE 


RPNOG = MOD(IC. INDEX) 
GO TO 35 . 
R = MODCIGI9NNN0). 


-“ PNOG = R71N0NNN0 


TA = 18 
PETURN & FNA 
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TIME ,10 

Equip, 3=(CODF-CONVERT) oMT.DA 

FTN «lL eX , 
PROGRAM CVTREN 

CONVERTS THE 1ARFO FILF ‘ 

WRITTEN AY LFININGFR AND WILLIAMS “= AUGUST 69 


NEEOS THE T4=PC CONVFRSION CODE TAPE 
LU.3 = CONVFRSION TAPE 
LU S = TEMP DRUM FILE OF FREOP RECORDS 


DIMENSION TACANVT.(1500¢3)¢ ITAREQ1°010)« TARFQ2010) 
INTEGER OLD ; 
KOUNT = 9 : 
) NO B 1=1016500 
A TACONVT?AT. 3) = O 
PRINT 120 
READ THE CONVERSION TAPE TO GET TO THE IA CONES 
MO 12 1=1e10900 
RPEAM (30 79} TECTIA 
IF (IPC eN=e 09999999) 12.14 
14 IF (TA oF Qe. 90999099) 14,91 
12 CONTINUE 
16090 29 IFILF21.2NN0 
’ READ (30194) ALD. NEW 
If (FOF e7) P1e1R 
18 CONTINUF 
REMOVE THF AREA FROM THE OLD CONF SO TT MATCHES THE 
INCOMING IAPEQ CODFSe WHICH DONT HAVE ARFAS ON THEM 
OLD = MONLOLD. 10900) 
LACONVTCTFILF el) OLD 
TACONVTCIFILE +2) NEW 
20 CONTINUE 
TAKE THF IARFQ CARDS OFF OF THE REANER 
' 21 REAM 101-6 (TADFOI(T ye TH1019) 
IF (EOF e«AN) 6Ne2S 
SEARCH IACONVT FOR NEW CONE) 
25 00 30 JFILEH1<e1600 - 
IF (LAREQI(1) eF Qe TACOCNVTCUFILE)1)) 32630 
30 CONTINUE 
NO CONF FOUND — STORE IN ERROR LIST 
NO.= 8H NO CONE 
WRITE (50201) NOe (CTAREQI C1) el21010) 
GO TO 21 
3? CONTINUE 
TACONVTCUFILF.3) = 1 
IF CTARFOI(2) eF Qe O eORe TAREQ1(3) eFQe 0} GO TO 43 
IF CTARFOL(103 eFfQe 0) 43433 . 
42 NO = BNE NENENANENS460R 
WRITE (50201) NOe CLAPFOL(1)e121010) 
- GO TO Al 
33 CONTINUF 
TAREQ2(1) = EACONVT (JFILE 62) 
CONVERT INTENSITY-DAYS TO HOURS-WEFKS 
IF (TAPFOL(3) eFOs 1) 350237 


eo ; 
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see 


35 IAREQ?(2) = LARFO1( 279/10 
IF (CIARFO?2 CP) el Te 1) ILARFOP(P)=1 
TAREQ2(3) = 1 
GO TO 50 

37 IF (CLAPFOI(32) -elFe 5S) 32441 

3Q THPS = FAPFN1(P)/10 
TARFQ?2(2) = THRS * ITARFQ1¢3} 

41 THRS = 1TARFQ16P)710 
DAYS = TARFQ1(3} 
wieS = NAYS /Re + 299 
TAREQ2(3) = WKS 
TARFO? (2) = (THPS # TAQFQ1(3))/TARFQ2(3) 
FINISH STUFFING THE NFU ARRAY 

BQ TARPFQ?P(4) = TLARFQI(4} 

TAPFQ2(5) = LARFOL(S) 

« = FARFQI(6) * 100 
TARFOQP(B) = K + ITARPFOICT) 
IF (TAREFQ1(8) eFQe 0) 52054 

5> TARFQPL(7T) = 9 & GO TO 55 

54 K = TARFQ1(B) * 100 
TAREQ?2(7) = kK + TARFOQ1(9) 

S55 1AREQ2(8) = TAREQI(I10) 

DONF. WITH CONVFRSION 
“ PRINT AND PUNCH THE FILFS 


- 


PRINT 1120 CTAPFOLCT)elstelO)« (TAREG2(J)sJ=108) 


WRITE(627 e114) CTARFQ? (J) ¢J=1+8) 

KOUNT = KOUNT + 1 

‘GO TO PS — 
60 CONTINUE 

PRINT L21¢ KQUNT 

PRINT OUT FRPROR FILF 

PFWIND 5S 

. PRINT 116 

DO 65 l=1e1N0n 

READ (54201) NOw (TAREQ1 (J) eJ=1¢10) 

IE (EOF 6S} 66,64 - 
44 PRINT 1182 NO, (CTAPFQ) (J) eJ=1919) 
65 CONTINUE 
66 CONTINUF 
: PRINT 123. 

NOP « 9 : 

DO 7a 1l=ielFILE 

1F (CLACONVT( T2323) eFQe 9) 72470 
72 NOR = NOR + 1 

PRINT 125¢ CITACONVT (1 eK) e212). 
7O CONTINUF 

NET = IFILF ~- NOR 

PRINT 1278 NOG. IF ILFe KOUNT ~ 

REWIND 3 

STOP 
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14. FORMAT 
16°. FORMAT 
‘A FOR AAT | 
PN FORAAT 
42% FORMAT. 


END 


91 PRINT 07 % 


Nee 10900 


STOP 


C10x.8H* 4 # # e¥ CONVERSION © TAPE “FILF SPLITTER NO coc *) 


C1B.1X,17) 
CT1INe 1x16) 
CEXeL4—.S1SS 


(10% 5 14 01 9 10% 4 16420 9126 1¥Y 91 B42K LDV AKI TIY AKG TEY 


CT60EXa PIP e 


GXel2elBetXel3el3e4Xel2) 


CiHiePOx%eeF PROP LIST. Kes /) 


Gdn eR cay A Chalo I 


C7¥.#0 F DD 


TA € 0.0 © *e17Xe*n E W 


C7701 0% oH TOTAL TAREQ PLNCHFO: vayee) 


“CARAIOT in) 


See Sa ee ET ae cage 


1A CODE *Vv/) 


CIH1DePOKs#THESE TA HAVE No JARS REFERENCE THEMES 77) 


€10%.2110) 


CS/777 0, OX eENUMEER OF RUM 1A rs #e1405Xe# NET noon Ta ARE. he. 
“TTS 9 (ORs WHICH HOPEFULLY 15S CLOSE To. NET PUNCHED ¢ 


» SCOPE 


4 = 88 
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--EDSIM - 4 . ies 


_ EDSIM -- 4 serves acid of ee same purposes as LOSIM - ~ 2. ce 


a 
‘It was created to be more efficient, and to provide better, 


. of 
S ‘aiepleys of information to decision-makers. It should be = : ; 
bp 

_ used . in place of EDSTM - 2 Pe most ‘practical purposes. 


\ 
| 
a 7 The basic’ processing cycle of ‘Dsl - 45 shown in Figure by, 1. 
“eonstats of two phases. During the first Phase. students select: fo 


othe PC's. ‘@erfornaice Criteria) they wish to prepare for: and © 


"they | are scheduled for: the IA's (Instructional Alternative) re i 
“are, going to ee, for chia preparation. During the. ‘second ae 
“the simulated time is ‘incremented: and for ‘each IA: just completdd 7 
students’ are songtcc ested: in the related PC. “The increneiital 


“time period of ‘this eyare is one week. 


| The following steps are performed’ for each carp 


_ during phase one. A that the student has not t passed, s not 


“distribution. 7s . rr tae a Of 


ot An incremental time period of one wank: was used in’ all of. the 
studies performed with EDSIM - 4. By simple. adjustments of the ' 
units” ‘of ‘measure of the imput parameters, it would be possible . 


ort use any desired time ‘period . ina simulation.’ a 


_ FIGURE 1 ae 
Processing cycle ‘of -EDSIM—~4 2 2 : \ 


* 
Y 


“Student 
Selects 
rc: 


Student 
Takes - 
Pre-Test 


ead 


7 ae 
- 
o 

2 


| 


re 


' Increase 
Simulation 
Time. By 
“One Week — 


a ie 


Select 
_... Student, 


is) 


Post-Test. 
PC's for 
“Completed 
, WA's 


Phase Two 


‘Remove | 
Student 


; ; ‘ ae : i 


\ 


*" 


7 of Anstructional activities for the current tine period... 


| passed ‘all whe if so, he is removed from’ the “gyleeas then all 


“students are p 


then, checked to determine whether ‘it is. offered. = the currgnt or 


rey aie 


future. time! periods. If. it is. not, an alternative TA is sel ted, or 


if no alternative can be scheduled then another PC is ste cae qe- — 


‘a -Fesources are not available. to eonduet the IA the seudent/bas just 


selected, ‘he must’ select ‘anotler PC. This first phase, fontinues 


processing students. sequentially until all students he ve. a full load - 


es 


During the second phase of the simulation cycle; e tie flock 


We advanced one week ana each ‘student: is exenined to ‘deternine df he 


has ‘completed any IA's during ‘the previous week. te ‘heh has, he is os | 

w post-tested using a ‘discrete zandom variable to, deterniine whether he oe 
- Oe 

"passes the related PC, “and his state with respect to the PC. is updated, 


“The state of the student : is ‘then checked to determine whether he has ; | 


ocessed through the second phase, the first phase is 


initiated apeins This cycle: continues until the simulation is 


"terminated. See documentation section for flowcharts, ta 


| debited. This is done in one of four ways. If the activity ts a. PC 


All PC's and: Tats are classified by event types in a manner - 7 a 
-fdentical to ‘the dtnear prograsining formulation, Each 1 event-type requires os 
the ‘same use of resources. | . 


“When a student engages : in a PC or ‘TA, the required resources are 


7 “which is adninistered individually, the resources required are debited . 


“according £6 che ‘requirements, specified. by ‘the evont-type. If the: 


- activity i. a ‘PC which ts adninistored toa group of students, resources 


a. . 
= 


- are atttted on a 1 prorated basis. “For ‘exampie, an examination which 
requires two hours of staff time. to administer to thirty atudanta 

* "would require 1/15 staff hours: ‘to ‘siminister to one student. That 

is not a restrictive assumption “since: many PC's are conducted on an 
individual basis. If the activity is an TA which isa prescheduled ; 
group activity, resources are debited at the beginning of: each 


: semester. If the activity is an IA which is conducted on an 


i “individual basis, resources are’ debited according t to vequirenents 
specified by the event-type. This is done on & prorated basis 

| “according: to the randonly generated student service time por the 

os. Scheduling conflicts of ° resources ‘or students within a. 

_- single week are ignored.” a 


‘Service times. for PC’ 8 and IA's are generated using normally 


distributed random variables with a specified mean and variance for 
each event-type. Noted that the service times are asouned to be 
continuous random variable and ‘the model is updated on a discrete 


basis. The population of. students. ‘is assumed to be hanojencous and 


ee 


_ these service times are not ‘dependent on student attributes. 
A number of assumptions concerning the structure and behavior | 


- a performance criteria curriculum haye been made in the ‘development 
~ y 
of EDSIM - 4. Since it is important that the user of this ‘model 


be aware of chess assumptions & a complete, list of then appears on 


page 24. 


: Both atidants and resources are assumed. to have a ‘fixed number of | 
hours available each week which may be devoted to their. participation 
in the instructional system's activities. It is possible that a. 
simulated student could be scheduled for two instructional ‘activities | 
o which’ occur ‘during. the same time period during. the week- and likewise | 

‘ee res jurce such as a classroom might have a similar, conflict. In this 

“model | ‘shese conflicts are assumed te have no significant. effect | on: 

me } model ' 8 response variables. ; , 


| The ueeucture of EPSIM - 4 is dependent upon seven data files 
. which contain all velevant ineovmation concerning the configuration 
of the curriculum and the status of students and resources. A number 
of the elements of these files are constantly being updated as the 
simulated system euke chroush simulated time. = oo 
One additional element er model's structure remains be 
discussed, the model's data requirements and output reports. 
Whenever possible the values of the parameters that describe 
student behavior and the operation of the instructional system are input 
into the model as data rather than being coded into the logic of the 
program. This-was done to doccensacthe model's flexibility and 
usefulness. The primary input data include: | 
1. The number of student arrivals at the beginning of each semester. 
| 2. The probability of student selecting to prestcet for each PC. 


3. The conditional probability of a student passing the related 
pre-test for each PC given he has decided to pre-test. 


4. The srcbabilaty of a student passing the related post-test 
for each PC. 


5. The conditional probability of a student selecting an IA, 
, given the student has selected a particular PC. 


6. The mean service time and variance of this service time’ 
' dn hours for each IA. 


ENC: 


7. The mean service time and. variance of this service time in 
hours for each PC. 


8. The subset of IA's which may be used to prepare the students — 
for each PC. 


9, The resources required to conduct each PC and IA. 
10. The availability of each resource in hours per week. 


ll. A schedule for each IA indicating which weeks during the 
semester it will be offered. 


12, The maximum allowable student load in hours per week. 

The values of all of the above parameters must be carefully 
specified in order to utilize the sinuletion nodel. They can be 
obtained from operating data if an operating systen exists,or if not 
subjective estimates can be used. — 

Except for the probabilities, this estimation procedure does not 
“present any problens. Either the educator making the eptinates will 
have data from which these values can be inferred or he will feel 
comfortable in making the estimates. However, when {it comes to the 
probabilities, most educators are not used to thinking in these terms 
and usually do not have access to data from which inferences regarding 
the. probabilities can be made, During this investigation it was found 
necessary to carefully naeruct the individuals making tliese estimates 
regarding the exact type of information needed. | 

If an opérating system exists, data from this systen may be seed 
to obtain estimates of the values of these paraneters. As, previously 
discussed, this method assumes there is a transferability of data from 


one instructional system to another if the two systems have similar 


° oe 56 


characteristics. This assertion may be true only to : very limited extent. 

It would therefore be desirable to develop a methodology which would 
enable an investigator to make inferences regarding the epaapeoeabeitey 
of values of system parameters from one instructional system to mocher 
‘and to show the relevance of data from one set of students to another 
set of students participating in a Suigleeaka criteria curriculum. 

This type of approach in attempting to make inferences regarding the 
behavioral characteristics of one group of students to another vould 
require sepacteicatton of the characteristics of the students. “For 

example, to make an inference regarding the service time for a specific 
task that applies to a particular set of students based on data secured 
elsewhere, it might be necessary to classify students by age, IQ, ard 
region of the country. 

In order for the models developed during this investigation to 

* come face widespread use, it aiid he eee ceey: Eee this type of 
methodology to be available, ‘For any particular application of the models, 
the data required for estimating system parameters are usually not 
available and must. be collected by one of the procedures cutlined above. 
This is a very 7 consuming and expensive process, hence the necessity 

for having this methodology. " 

The reports panctated 6p EDSIM - 4 include: 


l. Histograms indicating, by week, the mean, minimum, and 
maximum student load in hours per week. 


2. Histograms indicating the number of students in the system 
by week and number of students completing all PC's each week. 


ERIC. © | = 


3. A histogram of student loads in hours per week. 
4. A histogram of student completion times in weeks. 


5. A histogram for each resource showing its usage in hours 
per week. 


6.. The average weekly resources use and standard deviation 
of this use for each resource. : 


7. The total number of resource hours used during the period 


of the simulation and the total.cost of this usage for 
each resource. 


= -ephad 

The malority of EDSIM - 4 is programmed in FORTRAN IV with 
a few subroutines programmed in COMPASS, the assembly language for 
the CDC 3600. One version of the model will handle up to 200 
students, 50 PC's, 100 IA'’s, and 50 event-types. This dcceosponds 
_to one pedagogic component of METZP. For the simulation of a 
performance criteria curriculum with 200 students, 27 PC's, 50 IA's 
and 15 anti nke the program runs about three minutes per 
simulated semester and requires about 32K of computer memory on 


the Cpc 3600. 
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LANGUAGE ARTS COMPONENT SPECIFICATIONS 


METEP, the instructional system from which much of the data used - 
in this study was obtained, was used for two reasons: (1) the system 
was close at hand with dastien seveunnet readily available for . 
consultation; and (2) since it is currently in its third year of design, 
program specifications could be obtaincd,. 

The language arts component of METEP is one of the twelve 


pedagogic components in which a student must show competency to complete 


his training in elementary school education, These pedagogic components 


are: . . a a ‘ 
1. human relations 7. teaching skills 
2. aesthetics 8, language arts 
3. social studies 9, science 
4. mathematics 10. foreign languages 
‘5. pre-school education lil. evaluation skills 
6. media 12. supervision — 


Detailed system specifications have been written only for the 
language arts, mathematics, science, and social studies components which 
were suitable for use by the methods of analysis developed during this 
investigation. Operating data were available from the language arts 
éempencae aid were used to develop the utility functions needed in 
the linear progranming model, to estimate service times for IA and PC, 


and to estimate probabilitics used in the simulation modcl. 
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The purpose of the language arts component is to develop skills 
and knowledge in the methods of teaching reading and langage arts. 
This prugram of study consists of twenty-seven PC's covering a wide 
“range of topics from the theory of beginning reading to IQ testing. 
A tocal of 96 dneteuntioaal alternatives are incorporated into the 
program. | 

It was necessary to classify the PC's into five categories or 
event types for use in the linear programming and simulation models, 
These classifications are: 


1. Demonstration of a concept or ability. For example, 
_ demonstrate the use of three reading machines, 


2. Discussion with a staff member. For example, describe 
three different ways of presenting a stery to a class of 
twenty children. 

3. Participation in an activity, where the student is required 
to engage only in an instructional alternative. This type 
of PC is said to have an expressive objective. For example, 
participate in a discussion Be. the theories of beginning 
reading. 


° 4, Writing of a short report. For example, evaluate in writing 
three clementary schoos reading texts. 


5. Writing of a long report. For example, write a paper which 
defends the phonics approach to teaching reading. 


For cach of the twenty-seven PC's, students lave the choice of 
ten IA event types which they can use to secure bie knowledge and 
skills necessary to pass the PC, An actempt has been side in the 
design of this pedagogic eouponentdes include an IA of cach type for 

_ every PC except in the case of PC's which have expressive objectives, 


The ten TA types are: 


5-10. 


7. 


8. 


9. 


10, 


~ 


Lectures. Class lectures scheduled in advance, which include 
time for questions and discussion. 


Lectures on audio tape. They may be listened to at any time 
in learning laboratory. - 


Library folder of readings. Each PC has a folder containing 
articles, excerpts from oer aud samples of helpful materials. 


Library browsing. Sugg ested reading lists have been compiled 
on materials related to each PC. Student may also browse 
and select his own readings independent of any suggestions. 


- Informal discussion with staff. Steff mezbers vill be 


availabic on a scheduled basis to give advice and information. 


Informal discussion with others. Roommates, classroom 
teachers, former students, other students, and children are 
among the people who can be helpful to one student in learning 
how to prepare for the FC. 

° 
Audio-visual materials. Useful TV tapes, records, film 
strips, slides, and other audio visual presentations are 


_ available for each FC in the language arts learning laboratory. 
d 1 


Classroom observation, Elementary classes are available 
for ohservation by students. 


Practice with elementary school class. Students can arrange 
for short practice sessions with elementary school classes. 
Cften this is done as part of the student's student teaching. 


Other activity. Student may select any other activity he 
fecls would be helpful in preparing for the PC. 


The instructicnal resources required to conduct the METEP 


pedagogic components can be classified into twelve categorics: 


1. 
2, 
3. 
4, 


@ 


ERIC. 


Professional staf{ members 
Graduate teaching assistants 
Laboratory teclnicians required to support learning laboratorics 


_Classrooms ' 
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5. Learning laboratories 
6, Library 
7. Micro-teaching laboratory (not used.in language arts component) 


8.- Elementary classrooms and pupils 


9, Elementary pupils for micro~teaching j 
10, Auditorium 7 
ll. Office space for consultations _ / 

P / 


ie 
12, Elementary classroom observation space 


These resource categories are used in both the endl pein anc 
the simulation models. The eo from each model display their’ 
utilization by category. | | 

To facilitate modeling of the language arts component, estimates 
were made of the amount of each resource utilized when each IA and PC 
is conducted: These estimates were classified into the seventeen 
evant types shown in Tables 1 end 7; Table 1 shows the resources 
required in hours of renounce use to conduct each event type. ‘The 
hearuieee codes correspond to the numbers on the above resources. Table 
tates the mear and variané: of the preparation and contact time, 
the number of weeks the activity lasts, and the three probabilities 
associated: with each PC, All lectures, seminars, and other group 


. activities are pre-scheduled during the semester. 
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ERIC 


TAGLE 2 
EVENT TYPE PARAMETERS 


B ¢ Db € FG Ho} 


*00 1400 00 100 40* +60 +00 +00 
000 -1¢00 045'°1%06 1°09 600 00 +00 


eGO 000° 1¢00 ¢50 1605 1060 - 00 ¢00 e30- 
209 eGO 1¢00 1elO 1eCO 10 “CO QO ed0 
e00 «00 «50 1¢00 1¢00 1e60 . *00 +00 +00 
e000 °©00 e666 e500 1¢00 1°90 *GO «00 +00 


e00 «¢30) «66250 «66000 «80D 6609 «0800 2°00 
000 2e50 2000 +00 *©50 *00 *00 eGo 
200 1400 e25 e000 eCO 200 e090 e00 
©00 1e00 «00 100 :1e60. *GO0 *00 0d 
2e50 00 ©00 2¢CcO 1et0 #99 ©00 *90 
690 1¢00 ¢00 .1¢09 15e0 °¢00 +00 +00 
«00 050 0¢75 1090 1e00 1G 0 & e209, 
2090 16525 e050 1¢00 1200 ¢G7 ¢60 +80 


©0600 .©00 1¢65 233 1e90 !*00 ©9090 +00 490 
«00 e00 2e50 1¢00 ¥e00 16C0 205 e SO eS 
e000. ¢00 166 1000 1°00 1900 e002 e¢7G' «80 


LEGEND 


A = MEAN PREPARATION TIME IN HOURS 

B = yARIANCE 

C = MEAN CONTACT T?ME IN HOURS 

O = VARIANCE . 

E = NUMBER OF wEEKS ACTIVITY LASTS 
F = AVERAGE NUMBER OF sTUCENTS (MAxe IF leg) - 


‘PROBABILITY OF PRE-TESTING 
PROBAUILITY OF PASSING PRE-TEST 


PROBABILITY OF PAgsING POST-TEST 
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DATA EDIT AND DISPLAY PROGRAMS 


‘The first program, EDIT’, serves Ebeee purpeses: (1) it 
gaits for consistency the PCIA file which contains the IA's which 
may: be used to prepare for each PC, and IA pointer file which | 
contains the event type for each TA; (2) it displays the contents: 
of chase files; and (3) it: assigns sequentias codes, to PC and TA, 
and then it punches out. new duta decks for input into EDSIM ay 
‘The second ais DISPLAY, is wake as a subroutine which. must 
. be inserted in the input oiuidherct EDSIM- 4. It computes the 
longest end shortest completion times,. the. sriténs Beryare times 
| for IA's and pct 8, and the percentage of IA's and PC's requiring 
various resofrces. 
EDIT requires two input decks each followed by an end-of—file 


card. The first data deck is composed of PCIA cards and the second 


of IA pointer cards. The format of the IA penneee cards appears on 


1 


: page 36 and that of. the PCIA eaede in Table 3. 
| ‘To use DISPLAY, place a CALL to it in the main program ‘of the 
input routines of EDSIM - 4 as shown in the program listings, and 
. dncorporate its source or object deck in EDSIM - 4's progran decks 
‘at run time. The program will select from the data files the | 
" parameters necessary to ae ama reports. Table 2.1 

shows representative output from ‘this routine. 

; | : 
1 


by researchers in the School of Business of the Paiveratty of 
Massachusetts. 
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whe we ee Ee 


EDIT is an extension and refinement of a program originally coded: | 


’ 


a : om 


. | Tage 2,1 


, TABULATION CF GCESIGN PARAYVETERS FOR 
e+ FOUR METER PEDAGOGIC COMPCNENTS 
LANGe © MATH 
! = ARTS 

*! ae OF 1a - i 36 Cw 8? - 

NUMBER: OF PC: ; . 27 a6 
MAxe HOURS TO CO”PLETE ALL ih 66000 4443-00 
MINe HOURS TO COMPLETE ALL [aA. - 8080: 443.90 
AVERAGE SERVe TIVE FOR IA Weil 4.86 
AVERAGE SERVe TIME FCR PC. 1044 089 
~ F MOURS FECUIRED TO COMPLETE PC © 39e00 46200 


PERCENTAGE OF TA REQUIRING 


STAFF 00 76. 


GTA. : 9 44 
; LAB TECH 00. .~— 00 
™ CLASSROO™. = OO oO. 
LABORATORY : 60 _ CO 
“LIBRARY. 00 * 00 
MICRO TEACH LAS :.. 00 00 
ELEM. CLAssocom ‘ 00 - 62 : 
ELEM. sTUcENT 00 - "90 
_ AUDETOR TUM - 0O.. 00 
_ ‘OFFICE 00 00 
. OBSERVATION, - 0O © 00 


PERCENTAGE OF "5 REQUIRING 


GTA : j to | 53 
LAS TECH me i 40 00 
CLASSROOM - ai 47 
LABORATORY . 30 . &7 
; Liearary _ 30 . 00 
= , ex — MICRO TEACH LAB : oo. 00 
: " ELEM CLASSROOM 30 00 
' ELEM STUSENT -e0 ' 00 
< AUDITORIUM “to | oo * 
; . OFFICE _@o — 00 
' OBSERVATION 2 8a, lo 00 
NN 


~~ 


pads ms 7 : , a 
ERIC eo . : . / Ee 1A 


STAFF : -, BO $20, 


SOC. SCIENCE ~ 


STUDIES 
256 us 
121 61 


285 e00)0«— 323-50 


135000 05000 * 


3246 233} 
417, 2 


53200 13000: 


ss 00 
‘81 . &8 
o? ow 
Ba. oz 


co = ,_:(00 
20 00 
0s (ele) 
00 fee) 
00 00° 
co 00 
56 Qa 
a7 38 
29 46 
a9 - 33 
lo aa 
30... 27 
00 00 
co 00 
o8 . 00 
00 00 
0o co 
00° 00 


se 


-The following annotated program listings show the structure and 
- logic of these two programs, They may be interpreted and the program 


“modified by the interested reader. 


io . Table. 3 


- PCIA Card Format 


; ‘ ! 
"Card Columns - _ Content } 
Lo ea tas an /° 
V-5 Number assigned to PC, / 
6-10 - "| Event type of PC | 
15-20 © First IA which can be used te’ prepare for ~ wa 
2-25 Second -IA’ i 
26 - 30 _ Third IA. | 7 
/ i Bl 35 Fourth IA -— va . 
wf) 36 = 45° . Not used a 
ay «46 = 50 ‘Probebility of selecting firat IA 
$1 - 55 . |. Probability of selecting second IA 
' 56 = 60 Probability “of selecting third IA 


61 - 65 \ Probability of selecting fourth IA 


Note: Current version of EDIT is Limited to four IA‘s per 
, PC, but this may be modified by making minor changes 
in the program. 


# 


7 


~ 5~16 Pe 4 


ERIC -. 


ns 


oe: 
= -E> oe es sabes Sigiecon, Sie ane woe a cues ; 

c ‘ ; ; 
owe o- _ Betas —_—- PROGRAM €0iT oo es oe ay ee emmcc me: me renege ser ee 

c i ' ; 
cores = THIS PROGRAM. EDITS THE PCIA FILE Ano 

of bie AP eINIER FILE FOR INPUT INTO EDSIM=4 
miss Ciake Sa Se 7 on ; 

c veiTTEN BY 't0% RICHARDS AND GCORGE wILLi Ax 
seme oeee eee i eS ere te eo - . tee owe SCHe oF ENGR» SCHe or EuSe 


(UN IVERSITY OF, MASSACTIUSE T TS. 


a 


| 
ge 
o 


4 COMMON 717 1APC6130006)6 TAREQ(}309)» TACODEC4),. TAFILECI300) « 
1 : 


tPcxersec) ete een er leeteet ¢1PR63(10) 
COMMON 72s BOUN TIS TRENT oe 

Seen Mee eit REWIND 1 2 ~ : wee tee Pa ee ee Ste A eens eee ee wupieei dex aaaee 6 ae 
‘ ‘ - REWIND 2@ \ : ; . ' a : ‘ “E 
masigeetasiaes 22 * Oo §& I12i,i5e O° : $£ 00 & vr1,6 ; He PR RR Se aE oe ites _ . a 

' : ; § PAPC(Yey) = 0 % a é : a . on 
eminem KOUNTI = OO} S&S => KK ®O °: $ ‘LINE ® © ; mee. 
‘ oe . SCNT = 1 7 ~ : 
“pee gemees # eeee ie we eee PRINT ‘e201 % Bie? ai Rixatieeis Aiea lek waicieten Siuvage Vocimmmreitere Gea skseerdoe taal 
: ¢ i Te READ IN PCIA FILE a a 
cemee ees 8 TPO READ S101 6 IPCaITYPEs CIACOCECI de ketes) eCTPROBC 101164) 

: 1F (ZOF.60 ?.SO0013 —_ ; 
one emew + vereee Os 493 WREFEC2)« 1PCe IT (PEs (TACODE(1) o Tel ee) sUIPROG(CIT) obzie4) 
“SUM 2# 9 s KCUNTI = KCUNTI +) 


meee Cee nt eR nn CRECR FOR DRRETERTE PE NOSe oo 
IPCX CIENT E-eWIPC : j a ae 


iesimeheerebeieies a! uals gk 1KkT © ICNT = 1 : aa fe Vpoodte! pubs asia Snead, ’. a 
| 00 700 1 © Jy IKT . | ¢ 
some tes te TF CIPEXCLD eNEe IPC) GO TO 700 ‘ oie ee ES . 4 i 
PRINT 1026. IPE sIPEXC Lys TVlCny . ; a SS 
ng 70-77 ei aie aus mans a Gabe adeno) ate ca! 
. ’ é . ‘ 2s 
a _700 sont NUR ent +1 ee me camer ee seermene elem ee oe 
DO 15 J2104 ; ; 
wee eee TR CEACODE (I) e&O4 0) = GO TO.15 a ce cr 
‘ 97 1SUM = Tsua + to ; oe 
meee eee men 1S CONTINUE 2 aa” RR Oe pny ieee + sane eceagnon oh ee 
LINE #* LINE + 2 a 
ate teee en vee te EFL (LINE eEQs 60) 20.22 ska Be ROE a _'é. Se 
oe 20 PRINT 203 E } “LINE © i. : 
sree + BB CONTINUE 2 : 
ae PRINT 205. IPC CLACODEC 1) 1e1 SUM ’ ; so 
ne we ee Cerne emer . oe eee eens we ~ SET YP 1A TO RC FILE - ee 
00 70 1eiereum a 
wee es es DO Th UebeKK .. - 8 4 
IF CIACOOECT) eNE. TAPCOI62)3 GO TO 71 
wee ee ee WS TAINDX & PAPC (ID) : i ig = 
>: ; IFGLAINOX eGE. 6) GO TO 71 oe ee 
ote ee ce ere et ome eine a TAINOX a LAINDX + H ; se tn ies oe se ee. . oe 
a TAPC( Jel) = LATNOX 
ioe ee TAPCiSeTAINDX) = IPC 
7 GO TO 70 i . 3 3 
wove 71 CONTINUE ~ a a ; + 


: KK © KK + 1 

meade. ay eet TAPCCKKa}) = 3 
TAPCCK R33 IPC 

Pere . + PAPC OK Kee). = TACODE (1). 5-17 


RIC © 4? 


iin 


70 


So 


c 
52 
_- 55 
a mee ~-€ 
2 = 57 
c 
601 
- 602 
“mere € 
1022 
eines 690 
ooo mis oe ome 8 60 
Cc 
omens jan a, Ate omemee Ys 62 
65 
67 
a Cc 
84 
. 85 


CONT IENUE 
GO TO 77. 


CONT ERLE 


ENDFILE c2 
PRINT 207. KOUNTI 
PRINT 213eKK i #2 & «4 


PRINT 209 
PRINT CUT REVERSE SORT OF PCIA FILE 

LINE = 0 
DO 55 J=leKK cee z = ~~ 
LINE = LINE + 1 
IF (LINE e200 60) 82655 
PRINT 20% % LINC = 1 
PRINT 21ie Je CIAPC (Sek yeKE206) 
-TACNT = KK 

COPY 1AaPC . INTO IA FILE 


OO 57 JrieKkK ; 


TAFILE¢J) = JAPCON2) 
READ IN ITA REQ FILE 

ICNT2 © 0 ee. - 

ICNT = 1 

TAREAL = O1 

00 60 JCNT =1.-13¢0 

READ(G0.1000) LANOsITYPE se ISCHED 

1F (EGFe6S5) G2eEN2 
‘WRITECO! » TANOs ITVFEs! SCHED” 
TAREQCUCNT) = TANO 

; ae CHECK FOR DUPLICATE 1A NOSe 
IPCX CICNT) = IANO 

Iikt = ICNT = 1 

DO 600 I = Ie Ikr 


IF CIPCX(1T) eNEelANO) GO TO 660 : + cee: 
PRINT ece ot enOaMenner ss Teteny 

- GO TO 6O = tiga sae 
FORMAT (# ae OUPL [CATE 1A NUMSERS IN DECK 
CONTINUE 

1CnT = ICNT + 1 

CONT FNUE 


4110) 


“CHECK LAREO AGS INS T FAPILE 
JTALLY = 0 


ITALLY 2 O°) OS 
KKK = JCONT =-1 
DO ~-7 121¢XKK a 
00 ¢€% JHleKK 
IF (TAREQC) 
CONTINUE 
TALLY = 
PRINT 215 
PRINT 217, 
CONTINUE 


eEQs IAFILE(J)) 67.65 - 
ITALLY # 20> * aeere 8 : #3 
TAREQ). I 


- CHECH TAFILE AGAINST ITA REO 


00 85 J=zL KK : % Oo &4 zi aMKK 

TE (UAFILECJ) e€ Qe LAREGII)) 65.84 gin aliments 
CONT INVE 

JTALLY = JTALLY + 1 

PRINT 219 * 

PRINT 221. IAFILE(J)e J 

CONTINUE 

NIAREG © KKK = ETALLY— som pees : 
NIAFILE = KK = UTYLLY 

IF (NIAREO efO«e NIAFILO) 06:87 
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ee ee | 


ee ne ——w 


nme ee es ee ee ene et 


- 205 


PRINT ?PPRe 


GO TO 90 
PRINT 225-6 


ENOFILE Ct 


NEAPFOs NEAFILE 


NITAREO. 


NEAF ILE 


ENCFILE 92 


- > REWIND 
REwItnd 


-- CALE OUTP 


sTcPp 
101 
1063 FORYAT 
201 FOR™AT 
1#THIRS 
203 FOR’. 
TETHIRD 
FORYAT 
FORMAT 
FORMAT 
FOURS AT 
FORMAT 
FORVAT 


2c? 
209 
211 
213 
215 


FOR™AT ( 


1 coe - 
2 


61S etoax.415) 
C6x%.14) 

C1CKe*PC COCE# .ExetF I RST 
TAteOxe2FOURTH LARes) 
{lel - TOK e FPPC COCE# .OMs 
TA€.S%,AFOURTH 12*e7) 


eFiRST 


TA#%.6X%e*# SECOND 


C1OKe FHPeGXeL (Ss GKelL 1Oe Ske f$10-SGKxeTIO) --- 


Cs eI GKe#TOTAL SUMEER OF PC =*%.15) 
(UHPe25xsk#IA CODES 
C1GKe le GSKeL1LGeGCOxe TE)) 

Cf7 a1 Oe FTOTAL NUWERRP CF TA =r ie 


CIHR .IGXe#ThHE FOLLCH ING COCED 


TA#e6X0 


EOL. RENENTS | CO NOT 


LA*e«6X<#SECOND JA# LEX, 


21 Gee*XFIR ST PCH eBxeFSECONT PCHeS) 


raye 


1000 


aa LINE 


-* 150 


1S IN THE PC-IA FILE#.7/) 
217 FORMAT C25 e110 EK ae kCARD POS 
219 FORIPAT C1H 

1E RECUIREMENTS FILE*+//) 
“221 
223 
225 


FORMAT C7701 Ox c#LENGTH ! 
FOR TAT (€47010xXe*LENGTH Cr 
FORVAT(I106110+010) 
FOUATOIOX. 1518) 
FOR ATO 
FOR AT UM 
di ae ead 
> END 5 ash aah 


1010 
$015 
1029 
1501 


SUBROUTINE 
“COMMON 42s 
2 =IPCx¢1300) 
“COMMON 72/7 KOUNTI« J ACNT 
OIMENSION 1x100} 
te WRITE (6421591) ete ee = 
REWItS 1 
“REWIND 2 = 
IjTt = 0 


OuTe 
TAPC(1300¢6)6 


o - 
10 CONTINVE 

Pace REAO(CI » LAND. 
IFCEOF +O}? 25.100 
IPT ie) ens 
my = itt + 1 
PARECCITT) 1ANO 
DO 200 1 =1e1TAENT 
IF CTANO eNE eo 
TADK = LAFCCI.1) 

OO 159 y = 361 40x 

. IPT 1epy + i 
IxcIPT) TAPCC!.J? 
CONT fue 
LINE = LINC +1 


200 
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FORMAT (20X011 0eE%e POSITION 
FT LAFILE 
ET FAFILE NOT EQUAL TO LAREG*sEx%02119: 


TION 
o1GXetTHE FOL Lows PC-IA‘ CODES DO NOT HAVE COLES 


IN 


en re en ay 


TAPEQ(1300) + 
eo FATICGOGI10}6 perice07 


in THE LAREG OECK#. 1S) 


TAF ILE# «ES) 
TAREQ .5Xe2116) 


= 
= 


MORE THAN 466 EVENT TYPES FOUND * “a1te) 
QNUPLICATE FC NUIEERS IN DECK * 


atio} 


TACODE(4* » PAF ILE (1290) 


pine ane 


TTYPE+1 SCHED - 


YAPCL1.2)) GO TO 200 


Is. 


* 


an 


we 


~ 


IF (CLINE s60)*60 - LINE eEQe—-1) WRITEC61. 1004) 
cos WRITE CGT, IOCL) ITT+eIANO, ITYPE. ISCHED 


Cc REMOVE C FROM COLe TO PUNCH 
- CC "7" WRITE (62<.10C2) “ITTe ITYPEe ISCHED ° - 
GO TO 10 ae 
"CRAG RREEKEKREM EEK KEEREKESE ECIT iA § KREAHEEKEAAK RHKEKREEKEKEKREKREK EEK HERHEL 
25 ICNT = 2 
veo PE 2 9 - ; mee eee eee 


26 READ (2)5 IFC, ITYPEs (CITACODECI). 1=1+4) eC ITPROBCIT) + 1=1+4) 
—aenm == TE (EOF 202) B8cC.9C0 sia Caan ad ciate cel a 
900 ICNT = ICNT + 1 
cores = SUM = OO - : —@ = me 
DO 15 Yere4 ; 
vost OTF ¢PACODE (YU) eEQe 0) GO TO 15 
17 ISUM.= .1SUM + 1 
HS CONT INUE , : mG: at at 2 pleas banbewmimiakdn Bich aaweeeueenc aeeeeeewWs Gus ee 6 edened bees. 
DO 65 J = 1520 
Bee 6G TAR( J) = O 
DO 70 J=leISuM 
ces S00 7) Lets TTT ze > 3 a Be : 2 
: IF(TACODE( J) .NE« TAREQ(1)}? GO TO 71 4 
ee cee IAR(Y) = 1 ‘ vow, & ‘ Seas, yeecere. Se See as ier Sotetees,. Meco: 
7¥ CONTINUE 
mre FQ CONT ENUE . GR RRR FB Ba se ee Oe 
LINE = LINE +1 
IF (CLINE 760) *60 -— LINE eEQe-t)} wRITE(61+41005) 
WRITE C61-e1060)ICNT,.IPC J ITYPEs ( 1LACODE (1), TARCT}«6 T=1.1SumM) 
seorm= = WRITE (6141061) ¢IPR0B¢1),h=1.1SUM) o¥ ; 
Cc REMOVE C FROM COtiie TO PUNCH 
7 WRITE €6261C03) ECNTe IT TYPE. CIAR CT) « T=1.1SUM) 
WRITE (62.1003) ICNT.ICNTe CIFROBCI) «12=teI Sum) 
G6 TO 26 
8Co0 RETURN 
3000 FORMAT (6x0 14¢4e e221 2eGKelesT Set Xe Tie b2de3xXel2? . 
1001) FCRMATI1SKsSP1O. 5x08 
lo3e2 FORMAT (C2T1007x.C5) 
1003 FORMAT 1015} 


¢ 


-100G4 FORMATIIH a7 77010X0 4Ke* TA NUMBER EVENT#10Ke* SCHEDULE *7 
1 28x. *TYPE*) < 7 ; 
“4005 FORMATO IH1eaxe*® PC TYPE TA IA IA IA EA 
1 PROBAEILITIES#s Gx+*NUMGER CODE NuMBER CODE NUMBER 


2 CODE NUMBER#¥ax*® OF SELECTION #) 
1017 FORMATCIH «10xX%«GOX%e4119) 
1500 FORMATCIH } 
150) FORMATO1HI) 
~~ $502 FORMATOIH « 77/7) 
1060 FORMAT (1H*®.1017) 
1061 FORMATOIH «7?e%e 415) 
END 


5-20 


seen COMMON 


100 


wee ee PE CUTYPE sLte 0 ORs ITYPE ¢GT+ NIAR) GO TO 7779 


er mre meee 


SUSSSSOUTINE DISSLAY 
‘ 


CCMMON/SIZsS FLOAD: 1COHORT se COHORT e STAR (20) 
OIMFNSION Tr¢t2) AACS) 6SS5¢12) 

AVPC = 0-0 : 

AVIA = O0e0 - 

ANOITA = OC 

IFLG2 <Q + GTON = O & GTM = Oe 
TOTP = Oct 


WRITE’ S161E..15 
WRITE (SYAIECE) 


GO 500 iGLHK H)efSLK . 
PICK PERFORYANCE CRITERIA 
ITYPE = PCeTc ret") . 
DAYS = TVPL CLT ye&.3) 
HRS = TYFE CIT VGH?) 
HRS = TYPE CI TVEn 2) +TYPECITYPEst) 
AVPC = AVPS + ERS = 

PCTIM = ARS + DAYS 

DO 100 JY =5.16 . 

IF CTYPE CY TYEZ eI} eL Ee O¢0}QO0 TO !00, 
TT(U-4) = TT U4) + Lee 

CONTINGE 
TOTMIN = GeC 
TOTMAKX = Gel 
AMIN = 999955309 
AMAX = =<G9OGTIGe9D 

HC oT = PCIACTEL Ke) 

N = JCNT + 3 


00 300 IP = 2eN 


. 


PICK INSTRUCTICNAL ALTERNATIVE 


POCT = PCIACTELKeILS) eAivDe GODCOIEI7IT7I777776 
IF cf ACT ol fe © eCRe LACT eGte NOIA 3} GO TO 7778 
ITA = LAPTCIACT) 

x = ¢ 1TA eANDe 777777770C00000C8) 

ITyP& = ¢ ITA *ANDe 060000007777000C3) 
ITYPE = ItyYPLs2e*12 


Hs = TYPEC I TyPe.2) 
HRS = FYFECIryPE.2>? +TYPE(ITYPE.1) 
AvIA = AyvIA + HPs 

ANOIA = ANOLA + 120 

OO 1So Y =5.16 
“ITF ITYPE CITYPE + J) eL Ee Oec) GO TO 150 
S$(U-8) = SS¢ 5-4) + 100 
CONTINUE 

DAYS = TVPECITYPE.3) 

PF ODAYS «Gie Oe6)3 GO TO 290 
WRITICSHE.ICSO) OAYSse [TYPE 
GO TO 300 Sh 
Titra = BRS * DAYS 
IFeTiM eb Te AME) Al ots 
IF CTIM eGTe AMAX) AMAX 

CONT IRC 

IF ¢ AMI 20:0, 9I9NGGIID Y AMIN 
ERC AMA CEM. -99099.9 9 AMAX 
TOTHIN = TOTSIN + ARES 
TOTMAY = TOTINAK ¢ AMAXK 5~2t 


TIM 
TIM 


" 
90 
° 
Qo 
{ 
‘ 
1 
i 
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TOTPC TOTPC + PCT 


t 


GTON = GTON + AMIN : : 
GTOM = GTOM + AMAX 
= -~ WRITE (6t,1012) [BLK . TOTMINs TOTMAX ePCTIM 
S00 CONTINUE 
=Cc PRINT REPORTS , 
600 wRITE(S1.1013) GTCM,. GTOM «TOTPC 
os Al = GTON /ZALOSD 
A2= GTOM/ALOAD 
SE A3 = TOTPCy’ ALOAD ae SP ORSHER ecm Reh Chime me ee eS 
WRITE (61241014) AleA2<A3.ALOAD 
“iC COMPUTE AVERAGE LENGTH OF IA AND PC 
WRITF(6101°0C1) AVI Ae AVPC 
- X = NSLK - 
AYVPO = AVPCYx 
motes AVEA = AYIASYZANOIA «© cHn---- i ee es ~ 
WRITE(G1¢1501) AVI Ae avec 
WRITE (G141G05) - 
DO 795 1 =1e12 
7 et E44 ~ - - meee oo 
TTC) = TTCly rx 
~~" FOS =WRITE(G1e1C02) Ke TTC) - motes 2 ae eee ~ ae 
WRITE (61¢1505) 
- 00 716 f =1,.12 2 Re . . 
Ke lta. 
cee SS¢]) = SSCT)/ANCIA a 
7I1G wRITE(61.1002) Ke SS(i) 
wee STOP Be case a8, 2 2 te SOE Se don ee uae” Ss F sauté 
1000 FORYMAT(20x-+*ERRCR IN DATA - WEEKS LE 0660 IN TYPE FILE #12116) 
-1001 FORMAT CDH e lLOxe#HeEZ AN LENGTH OF INSTRUCTIONAL ALTERNATIVES Ic¥ 
lL FlQe2@s/eirtxXe#MEAS LENGTH OF PERFURMANTE So evenne Is HF 1O0e2) 
-1002 FORMATO IHD .Sys  1100FE003) . 
10G3  FORMAT(71IIGeF1O0e2) . 
*-1004 FORMATCIHG. 135110) a — 
1005 FORMAT ( IHle lox. FRESCURCE PERCENT * 
1/8X%e *#FILE POSTION ' OF TA REQUIRING *77) 
1012 FORMAT( 1H ¢« Sxe Illa. 3F 2002) 
- 1013 FORMATCIH «9xe LAEHGRANO TOTALS oF 14624e2F200e2e// ) 
19014 =F RATING estan eS: ~ arise eet as * Ei ege *# RRS PER | WEES * yy) 
- 1501 FORMAT(IH1) ° 7 
1502 FORMAT(22x.* TASLE *S Sf VSXe* MINT HUM AND Peta PATHS * 
- -- BY 15x%e* CIN HRS ) * 
1Z7/ 1CKs * AREA * loxe #MINIMUM TIME * 10xe *MAXIMUM TIE #77) 
777S WRITECEY.101S) LACT. NOLA ° 
1015) FORMAT C10xess7¥340 THOUT DATA, LeAe NUMEER * T10e# 15 TOO LARGE 
By SY ge THE NUMBER OF LeAe IN SYSTEM IS * 319) eee 
RETURN : 
7779 WRITE (6141016) ITYPae NIAR oo 
101G FORMATC10x%e7/7*% BAD INPUT DATA. EVENT TYPE*® 110 * LARGER THAN® 
1 *#NOe OF EVENT TYPES * 110). bd 
STOP 
Sa cae END oe eae 7 
ro 
Cc: 
Cc - = Set ee de ao 
¢ a 
Cc ri) 
Qe - 
ERIC §-22 
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EDSIM - 4 DOCUMENTATION 


Program Struc-ure x 


This section contains complete documentation for EDSIM = 4, 
including assumptions used in program development, flowcharts, 
file structure, operating instructions, sample input, sample 
output, and peogran listings. 

The approach used in this investigation was to determine 
the individual student's effect on the simulated system's resources 
and to record each student's progress through the system. To 
increase the usefulness of the model, what is normally a single 
6tudent entity can be defined as representing a cohort or group of 
studentis. Each student within a cohort effects resources in the 
Same manner or wegree ag every etter ae they simultaneously progress 
through the instructional system along identical paths. 

ade 4 has two aeteibutes which Conway? (8, P. 95) feeis 


should’ be incorporated into all simulation models: flexibility in 


design and modular construction. This type of construction enhances 

the capability of easily making changes jin the model which reflect 

chenges in decision rules and assumptions regarding. system operation. 

the. orostan is composed of a rumber of subroutines, each performing a 
; \ 


Single processing function. Complete subroutines nay be replaced, or 


their components may be modified without disturbing the rest of the model. 


1 Conway, R.W., “Some Tactical Problems in Digital Simulations", 
Management Science, Vol. 6 (1959), 92-110. 


. ERIC | | wee 


EDSIN-4 consists of three basic programs: an input program which 


édits and displays input parameters, the main simulation program and 


a report generator. Figure 4 shows how these programs are linked 


together using magnetic tapes for intermediate output and Figure § 


Ca 


contains detailed flowcharts of the main simulation program. 


Numerous assumptions were made in the construction of EDSIM-4. 


The following list contains the specific assumptions which shouls be 


understood before EDSIM - 4 is used. The prospective user should 


also carefully review the flowcharts for EDOM - 4. 


“1. Potential scheduling conflicts within the incremental 


Q 


ERIC 


time period of one week are ignored when scheduling 
both resources and individual students. 


When a student selects a PC, a uniform probability distribution 
is used to determine in which PC he will engage. If he has 

already engaged in the Pl selected, a sequential scan over all 
PC's is performed to select a PC the student has not completed. 


Whenever @ student. requests to engage in a PC, it is conducted 
regerdless of resource availability. 


If a PC requires a group of students for its administration, 
the PC is conducted individually with the resources prorated. 


If a student -ails a PC, his probability of passing the PC 
remains ‘constant on all succceding trials. 


Students are processed sequentially in the order they appea‘ 
in the student file. 


A student will not preschedule any 1A's during a week for which 
his projected load for that weck excceds the maximum allowable 
lead. 


A student will not cngage in any additional TA's during the 


current weck if his current load is greater than the maximum 
allowable load. / 
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FIGURE 4 


Block Flowchart of Interface 
Between ENSIii-~4 Programs 


Read In 
Input Data 

and Set Up All 
Data Files and 
Write on Tape 


| ae 
Input 4, 
Parameters 


EDSIN-4 
Simulation Prog- 
ram Writes on 
Tape Each Time 
Period Complcte 
System Status 


Report 
Generator 


Reports 
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FIGURE 5 
>. | Flowchart of FRSIM-4 
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FIGURE 5  “ontinucd 
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Output 
System 
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rc 


oo 


Student Student 


From 
System . 


. 
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Run 
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| 
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FIGURE 5 Continued 


Select PC Subroutine 


’ For One - 
- More PC: 


Randomly 
Select 
PC 


PC ; 
In Progress 


a 
Completed 


Set 
Completion 
Flag 


Select Next PC in 
Sequence Not Completed 
az PC File 


. FIGURE 5 Continued 
‘Select IA Subroutine 


& 


a 
Randomly 
 & ; Select an 
. T no _ 
‘Pre- . 
Offered no “Scheduled 


This Time 
Period 


IA ' 


y yes 


Scan Future 


Resources ' Offered - 


(2) é4 Available This Tine no Saar ne 
Period © 2 ia 
. Offering 
ea yes 3 lyes eo 4 
: yo, . aot . 
| yes - 
(RETURN ba rere | Offered ; 


Exceeded 


Alternative }<¢ 


Load 
on Student 
L.T. Max 

_ Load 


ALL 
IA's Tried 


7 


' Record - 
. Disappoint- 
ment 


i 
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Student's - . 
Current Load 


4 Resources 


| Load -GT.~ Ma 


FIGURE 5 


Flowchart of Schedule Subroutine 


Schedule 
Student 
For IA 


Store 
Starting. 
« “and Eig 
Week 


Start 
Time .GT. 
Current 
Time 


Set State 
of Student 
Two 2 


. Pre=- 
Scheduled 
TA 


Reduce 


Required to 
Conduct IA 


If Student's 


Load. 
Set Flag: 


RETURN 
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9, 


10, 


ll. 


12. 


13. 


15. 


If an IA is not offered: during the current time period, the 
student will attempt to schedule the IA during a following 
week, It may be scheduied during any week up to the end of 
the semester, 


‘If an IA is not offered during the current week or a ruture 
week, the student will.select an alternative IA. 


A student may engage in the same IA several times to prepare 
for the same or different PC. No record is kept of IA's a 
student has. engaged in, 


If resources are not available to conduct _an IA,- a student. 
will not engage in the IA. _ Pe 

we 
“Student service times for prescheduled IA's are recomputed © 
_faeh week, 


A student engages in only one, IA before attempting * to pass 
the related PC.” 

The snout of acseieee wied to conduct ‘a prescheduled IA is 
constant regardless of the number of students éngaged in the 
ete 


EDSIN-4 pile eeructire 


The structure of | EDSIM-4 is densfdenes upon seven | data files 


{ 


which contain information used by the program; Much of the data in 


a 


these files is constantly being updated and modi fied, 


1. 


‘The student. file contains all pertinent tafoenatton vepavaing 
“each student. This information includes the IA's the student 
is currently engaged ‘in,’ the PC's which he is preparing | to 
“meet, the starting week of any IA's he is scheduled to 


engage in during future wecks, the week during which he will 


. complete service in any IA's he is engaging in, the’ student’ S_ 


: ehe instructional system. 


, Q 
- ERIC 


current load in hours per week, and the. semester he’ entered 
< i 

The state file contains the state of each student with respect 
to each PC. A one is recorded if the student has passed the 


PC, a two is recorded if the student. is currently engaged ‘in 


an IA which prepares him for a hibget Jeulax Pc, 


- 
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3. 


. 4s 


ae 


oe 


s. 
6. 


- Each data file used in. the model has one COMMON card which may be 


TT 


| 
a 
Stee 


‘the’ PCIA file contains the IA's which may be. ged to prepare ; ge 


student for each PC and the probability for each of these TA's © ee 
that it will bo used, given a student has selected to PECpaNe : 
for a particular PC. eee 


_- —— ] 


— 
“The IA potater-filc containa a schedule for each IA indicating 
_the-weeks during the semester it will be offered, the event type 
associated with the IA, and the number of students engaged in the 
IA queens the current time ported. 


The be Getter tite contains the event type associated with, the PC, 


aoe 


- The hours available file contains the number of resource hours 


available during cach week of the<simulation for each resource. 
The elements of this fite are reduced as students engage in IA's 
and PC's. --. 


The resource requirements file has entries which indicate the 
amount of each type of resource necessary to ernduct each 
event. These entries are in hours per week, 


replaced’ if the size of the file is to be modified, The user is 


pa ecreeues also to - change the values of the variables which specify che: 


‘natant dimensions of each file in the. input routines of. EDSIN-4, “ghaue 


are ued by the Program to check indices before data is stored or 


‘retrieved. Several of the files have pointers which indicate the 


location of component pares of - the file whieh must also be modi fied if 


the file size is changed. These paraneters ‘ppeer. timedt ately after 


rae 


the dimenoton of Fhe file in its CONNON card, 


\ 


The detail - structure of ‘each. ‘of the. ‘above ‘<< follows: 


Es 1. 


e 
ERIC. 


- Student File, _ FORTRAN name ‘of file D(M, N): or FD(M, N) 


One ‘row per student and’ one 48 bit word per column, 


— Column . -_ - ‘ os Content of Column 
1 PC student is preparing to mect,. — 
Se JA student is engaging in to meet PC 
= "First half word, starting. week of IA’ 


Second half word, enGANG week of IA 
ie : = Sonar 


£ 


. The above sequence is repeated K times (the pointer 
ATRPT contains the: value of 3K+1) then the sollowing: is 
recorded for each student: 


Column i. Content of Column 
. | 
> BK+1 Number of students in cohort “ 
3K+2 Maximum student load in hours. ‘per week. 
, 3K+3 Current student load.. 
(OKA _ Entry week of student: into Aysten 


2, State File, FORTRAN nane of file STATE, N) . 


' "One row per student. ‘Columns are packed 24 columns per 
- 48 bit word. States are: 1 = completed PC, 2 = ae 
- engaged in PC, and 0 = otherwise. 


State of student with respect to PC nal, - 
State of student with respect to PC'n. 


Column . - ; , Content of, Colunn 

ly - »  . State of student with respect to: PC 1. 

2 State of student with respect to PC 2. 
43 State of student - with respect to PC 3. 

e \ , e e e . e x) . -" e “a 
n-1l \ 

n 


- 3, PGIA File, FORTRAN name of file PCIA(H,N) 


One row per’ PC. Row number. corresponds to PC’ number, 
One 48 bit. word per’ column. Two digit integer probabilities 


are used, . 
Column Soe 8, | _' Content of Column 
1 Number of IA associated with PC number 1 
- 2 . First half word, probability of selecting. 1A 
a Second half word, IA number 
3 . © First half: ‘word, probability of selecting | ; 
- ‘gecond IA 


Second half Bors: second IA number 


“We to N-1. IA may. be associated with each PC, 
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4. Resource ileus Available File, - FORTRAN name of file HOURS (,N) 


One row for teach wack of semester.” Gne 48 bit word per 


column. 
Column ; Content of- Column 
~ 1-4 Not used 
5 Staff hours available per week 
6 Graduate teaching assistant’ hours ‘available 
; per week . 
7, Laboratory technician hours available per week” 
8 " + Glassroom hours’ available per weck » 
9 ‘Laboratory hours available per week | 
10° . Library hours available per week. * 
ak, Micro teaching hours available. per week, 
12: _ Elementary classroom hours available per wee 
13. . Elementary student hours available per week 
14 - : Auditorium hours available, per week / 
15 Office hours available per week 
16 | Observation hours available per week 


Note: The particular types of resources specified by each 
column are a funétion of the systen under study, — 
The above specifications correspond to the headers 
used in the reports generated by | EDSREG: These could 
' be modified with ease, 


5. Resource Requiresents File. “FORTRAN nane of file TYPE(M,N) 
One row for each event type. One commuter word per column. 
or) ao . \ 


~ Column . - 7-7 Content of. Colizn eas 

1°: aan Mean student preparation hours ‘required for. 
‘activity: : 

2° _ Mean student contact, hours required per week 
. 7 _ + for activity > 8 
3. -.. * Length of activity in weeks é ‘ ° 
4 - . Maximum students per activity ca 
5-16 ‘Columns 5 through 16 contain the mean resource 


‘required for the twelve’ resource t pes. appearing 
"inthe HOURS file : 


“1? ae | Probability of selecting to pretest if event 
‘ae e _type is aPC. mY ts 
18 mee Probability of passing a ét —— ea 


4 


* 5-38 7 pass 


21 Standard deviation of Se contact hours 

220 First bit not used 
‘Second bit is a one if event type is a pre- 
scheduled group activity 
Third bit is a one if event type has a fixed 
service time 
Fourth bit is a one if event type has an 

; . oa expressive objective which means student does” 
a not pre~ or post-test. 


Note: The current eeesion of FIST used: a aormal distribution 
to’ generate service times. Tiiis subroutine could/be 
‘replaced with any desired type of random Hear 
gencrator. Up to four parameters can be input. nto 

. this routine. from columns 1, 2, 20, and 21. " 


{ 


_ 6 JA Pointer File, . FORTRAN name of file TAPT(N) 
"(One ‘row per IA and 12 or 24 bits per column, 
Colunn : - "Content of Column . 
o® 24 a2 The first 24 bits of the 48 bit computer 
"3 . ° word indicate the schedule of the IA. A_ 
- . one in the nth position indicating the IA 
re is offered during the nth week of the moucstersr. 


2 . A twelve bit event type code 
3 ‘The number of st dents currently engaging, in tA 


 : J PC Pointer File, FORTRAN name of file PCPTEN) 


a One row per PC and one word per row which contains the 
event type for the PC, 


Operating Instructions. 

The program requires three japndtlc tapes: tape unit 10 is used 
for dumping, system status paraneters which are used later. by a report 
generator, and unite 9 and 11 are used for temporarily storing the HOURS 
fie. When the program is Fun on the CDC 3600, cerecn DEMAND. card 
must be included in the system control cards, . + 
i 1 : 

Figure . 6 slows ag normal porgnne sation of the program decks » Three 
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STALL OF 
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aS. 


programs and two data decks are required. the input program sets up 


* and initializes the data files used. by the main program, . The main 


' program gencrates data on tape unit 10 which is used for input into the 


“report generator, These programs may be run seperately using tape | 


unit 10 to transfer data frou one program to another. or they may be 


‘run as shown in Figure 6, 


| a ee o 


The format of the input |data cards anda sample listing of these 


cards follow, (See Table 4). 


: 


2 


ERC 


. Card’ Number e., oF _ Content of Card = Format 


EGTA. cards. 


Simulation Control Cards. 


i | First dump’ Flag. ‘If ‘Zero 0 system. > 2710: 
ge Status is dumped on tape 10 each week. 


Second dump flag.. If non-zero 
complete system status dumped on. 
peantet each simulated week, 


e 


2 Starting seites ter for simulation | 7 50K, 110 
2 - Ending semester for eimilation - 7 50XI10° 
4 - - Case number for, simulation run 7 7 50X,110 
? 5 Number of weeks per semester ae: 7 50X,110 
6 Maximum student ‘load. in hours: pe MS ae a 
per week | i. a 50X,F10.0 
7 Number of seence? per, cohort. 7 7 50X,i10 
8 7 Number of weeks student, ¥i21\ look _ ae Mi 
. ahead La. eeTeeene TA - | . . POnsrte 


ao Me 


Two cards are required for each. PC, 
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'. Main Program and. 
. Monitor Control 
Cards 


9’ 


, =. "+ FIGURE - 6 


Normal Organd zation of Program Decks 
£ or Exetution of EDSIN-4 


End of File » 
: a Card 


NY 
_\ Data Deck 


Report Program and nae 
Monitbr Control Cards ~. 


re en 
’ 
, “ = 
Card Number one. Format (1615) 
i ( . ‘ : 
. # ..Card Columms . Content 
| : : : Os si 
1g Y-5 PC siabee io” 
6-10 ~~. _ PC eyent, ‘type ef 
ee | oe 5 “First IA 
ar 16-20. . Second IA . 
21 ~ 25- ‘Third IA | | ee | 
ty YY * - . we Ag ee Ps 
_@ ‘ 2 Wve e / A ’ , i = 
a - 80 - Fourteenth ZA _ a oe _ 
; a : : f 7 : “ a j 
_ Card Number two, Format (15,5X,1415) 442° 
i Card Columns ° ; Content | a’. a 
-1-5 : PC. number 
6-10 ~~" | Blank, ., 
be, ‘" Jl-15 © — . “Two. digit probability of ectacting first TA 
, ~~ 16 - 20° Two ik dala of selecting second TA ** © 
oo: = . | | 
" 75.— 80 gs "tio digit ner AG selecting 
an fourteenth. TA. ~ 
Note: The maximum’ number of TA's per\PC is dependent on the’ 
size of: the PCIA file. 
; —. 
3. Instructional iitevaat ive Cards. ° + 
aye? 7 _ 


One card is required for each IA, Format (2110;5X, 016) 


i Card Columns’ a > “Content ie | 

-1-10° TA nunbar : 

ll- 20  .. Event type codes. * 

s21 = 24 Not used _ oo 
26 = 35, . “Schedule of IA,. The octal. representation 
a a2 of the binary number which indicates the | 

wecks in which the TA, occurs. 
Examples of the last field nies 4 


10000 = IA is offered duting the first week of the semester 


VO 5088 


+r 


IA is offered dur ing the second week of the semester 


20000 


77:77 = IA is offered every week of the semester 
4, Event Type Cards. , a | a 


Each eyent type requires two cards input‘in sequence..::.:- 


Card number one. Format (12,13,15F5.0) 


Card Columns '. Coment 
“]-- 2 Ol - . 
- 3-5 . Event type number an 
6-10 © ' ‘Mean student preparation hourr . 4 
11-15 ° , Mean student contact hours vi 
* 16 = 20 _ Length of event type in weeks ‘ 
-21 - 25 . Maximum students per. event type 
26 - 30 Staff hours Fequtred: 
31 - 35. GTA hours required \ 2 
36 — 40 Laboratoxy hours required | 7 
41.- 45 Class\oom hours required. ° 
-46-50 - . Laboratory hours reqtired 
51 - 55 ‘Library hours required 
56 - 60 ~ Micro teaching hours required 
61 - 65 _ Elementary classrou:;n hours 
66 - 70° Elementary student hours 
71 - 75. Auditorium hours required =~, 


76 - 80 Office hours required 


Card .umber two. Format (12, 13, id 0) 


Card Columns Content - 

J-2 - * 02 
3-5 ~~ “Eyent type number " 
6-10 _ Observation hours. required 

11 - 15 : . Probability of, selecting to pre-test if 

, event is a PC 

16 - 20 - ‘Probability of passing pre-test 

21-25.  ... ° . Probability o passing_post- -test 

26 - 30 Standard devigtiqn of prep on, hours 


| 31 - 35 2 4 standard deviation of contact hour 
If needed, a third card may be input for each event oe 
all eyent types require this card. | 
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Card number three. Format (I2,13,5X,016) 


Columns = Content of Field 
1-2 03 t , 
3-5: Event number . 
6/~10 Not used 

14 26 : Octal code for control bits (see resource 

/ requirements file for codes) 

/ Fs ! } 


5. Resource Cards. Format (4A8,8X,110,2F15.0) 


These cards specify the amount of each resource which will be 
available during each week of a simulated semester, 


Columns 7 Contents 
1-40: , Descriptive comments 
(41 - 50 Position in HOURS file (colvam number) 
‘51 - 65 Hours contributed per week per unit of 
. _ resource, 
' 66 - 80 Tctal units, of resource available 


6. Rescirce Cost Cards. Format (4A8,8X,110,F15.0) 


“These cards specify the units costs cf resources, 


\ 


Columns : . Contents © 
2 - 40 = Descriptive comments 
“41 - 50 Position in HOURS file 
. §1 - 65 - Unit ‘cost of one research hour 


This appandiix contains acpectes ae ie reports from EDSIM-4. A 
' Somplete set of reports was not included due to their volume. The reports . 
ee are representative of the type of information displayed by 
‘the report generator of the simulation model, 
ae “A complete Listing of EDSIN-4 follows this sample output. These. 
.program listings: are annotated to facilitate their dnbespestations To 
"L4 reduce their length, COMMON statements have not been included, but a 


gaat of the COMMON ce which should be included in each program or 


e@ ireueiae is ‘Included. 5-40 
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TABLE 


4 


SAMPLE INPUT FOR EDSIM-4 


PEEK AK SK ELS EE EY RHE REE ERE RARER REEE 


- SOURCE OR OBVECT DECK FOR INPUT ROUTINES GOES HERE 
PLUS APPROPRIATE 


99999 


1 
‘2 ENDING SEMESTER FOR SIMULATIC’N Rus IS 
3 CASE NUMSER FOR SIMULATION RyN - 
4 NUMBER OF WEEKS PER SEMESTER 1S (MAX OF 15) 
5 MAxIMus LOAD IN HOURS, PER yEEK er 
6..NUMBER OF STUDENTS PER COHORT Is 
*100 100 100 100. 100 1¢0. 100 100 -100 
7 NUMBER OF WEEKS LOOK AHEAD IN SELECT ACTS. 
01 17 ! 20 3 4 5 6° + 
ol 45 14° 06 17. 04 04 00 
02 14 12 2 3 4 5 6 7 
o2 1S 00 o7 )} 19 04 00 
03 16 13 - 2 3 4 5 6 7 
03 49 05) = («18 07 05 05 o2 
04 17 14 2 3 4 5 6 7 
04~—. - §3 o2° «(14 1002 02 00 
05 17°. 15 2. 3 4 5 6 7. 
05 |. 62 02 04% 04 02 12 00 
06 17 (16 2 20 4 5 6 7 
06 50 04°)~= 21 07 00 01 00 
07 17 17 2 3 4 5 6 7 
07 47 00 32 oc 03° 08 rere) 
08 14 18 2 °3 4. 5 6 7 
08 49 00 22 26«13°~«(O7 00 00 | 
09 14 19 2. 3 4 5 6 7 
og ' 38 ‘94 20 14 06 04 00 
10 17 20 2 3 4° 5 6 7 
10° 39 00 24 15 ‘00 04 00 
11 16 21 2 3 4 5 6 U7 
11 ao 39 03 25 00 06 16 00 
12 14 22 02 03 «04 95 06 07 
12. 28 14 25 08. 003 08 00 
130 «13 23 2 3 4° 5 6 7 
13 52 00 03 oo - 66 00 00 
14 16 24 . 2. 3 4 5 6 7 
14 41 02 17 06 06 11 00 
15. 16 28 2 3 4 5 6 7 
1S 17 +00 03. 58 £00 06° 00 
16 14 26 2 3° 4 5 6 7 
16 45 op = Bl 07 co 30 s«éOO7? 00 
17 1S 110. : 
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00 


100 


8B 
iefe) 
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100 
~ 27 2 
42. 00 
28 
47 06 
29 
43 fale) 
30 
53 00 
31 2 
43 03 
22 2 
44° 00 
33 2 
45 03 
34 2. 
50 
35 2 
41 00 
36 
61 04 
FILE CARD 


17 
18 16 
18 
19 14 
19 
20 13 
20 
21 14 
21 , 
22 i4 
22 
‘23.14 
23 
24 14 
24 
25 14 
- 25 
26 17 
26 
27 13 
27 
@@ END OF 
1 
2 
3 
4 
5 
6. 
7: 
8. 
9 
lo 
11 
12 
13 
14° 
15 
16 
17 - 
18 . 
19 
20 
21 
22 
23 
24- 
25 
26 
27 
28 
29 
30 
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ERIC 


e25 
©00 


«01 


045 
00} 
50 


1e10 


025 


1200 
50 
025 
eoo5S 


200 
eo) 


025 


02 

©00 
«50 

20 
75 


025 


©50_ 


033 


CONTINUED 


02 


003 


202 


100 


201 


925° 


1-00 


. 030 


1600 


039 


TABLE 4 
31 1 C0004 
32 1 00020 
33 1 ooora. 
34 1 00010. 
35 1 00004 
36 1 00002 
ee “END. OF FILE CARD 
01001 1000 1 200 360 
02001 00 

01002 1200 1 1 01 
02002 00 
01003 1200 ! 101 
02003 | 000. 
01004 100 1, 92. eol 
02004 00 
01005 050 1 1 e25 
02005. ~ 00 
01006 066 1 
02006 000 
01007 ©3090 1 --2g01 
02007 ea 00 

~. 01008 © 2<Sy) 1 16905 

' 92008 1400 00 

..01009 |. 1000 1 1 
02009 200 

- 01010 1600 1200 999-6. 

- 020190 . 
01011 250 ie] 1 1 201 
02011 : 2050 
01012 1200 13000 100 
02012 1¢00 00 

. 01013 e50 1. 6f 
02013 e10 e3BO e390 e00- 

- 01014 1625 1 1 

- 02014. °07 60 80 +00 
01015 -O r. 1 
02015 " 2e0 
01016 2050 | 1 
02016 «05 e8 e885 
01017 10666 21 ~~ -1 
02017 02 °©70° «80 
‘01018 1600. 1 306« 50 
02018 , % 2 , . . 
°91019 | 1.200 1 15 1¢00 

- 02019 ©0G «00 1600 

“ee END oF FILE CARD : 
03001 3006900000G00000 
03010 2000000000000000 | 
03015 040C000000000000 
03018 3000000000000000 
03019 - 4400000000000608 -. : 
ee ‘END. OF FILE CARD 
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TABLE 4 CONTINUED 


PREP HOURS PER WEEK) 


i 

CONTACT HOURS PER WEEK | 2 
- LENGTH IN WEEKS 3 
STUDENTS PER IA OR PC 4 
HOURS PER WEEK AND NOe OF STAFF 5 
GRADUATE ASSISTANT HOURS ‘6. 
OTHER PERSCNNEL HOuRS ; 7 
CLASSROOM HOURS © 8 
LABORTORY HOURS (HRSe xX STAe) 9 
LIBRARY HOURS (HRS x STA) —— lo 
MICRO TEACHING HOURS Ale 
SEY CLASSROOM HRSe s  a§ 2 
ELEMENTARY STUDENT HOURS : 13 
AUDIFORIUM HOURS. ; 14 
OFFICE HGURS — 1s 


OBSERVATION HOURS , 16 
@@ END OF FILE CARD 
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SOURCE GR GBYECT HAIN PROGRAM GOES HERE 
PLUS APPROPRIATE MONITOR CONTROL CARDS 


SOURCE OR OB8UcCT DECK FOR REPORT PROGRAM GOES 


' PLUS APPROPRIATE MONITOR CONTROL CARDS 


ER MK RH Ee KEKE REM RRR KERR ERE 


PREP HOURS PER wEEK 


- CONTACT HOURS PER WEEK 
LENGTH IN WEEKS 
-- STUDENTS PER IA OR PC 
HOURS PER WEEK AND NOe OF STAFF’ 
GRADYATE Assi stTANT ‘HOURS 
/ OTHER PERSONNE! HOURS 
CLASSROOM HOURS > ae j 
“LABORTORY HOURS (HRSe x STAs) , 
LIBRARY HOURS (HRS x.STA) © 3 ‘Jo 
MICRO TEACHING HOURS 7 : 1) 
ELEMENTARY CLASSROOM HRSe a "12 
ELEMENTARY STUDENT HOURS © 313 
AUDITORIUM HOuRS . ~ es 2% 44 
OFFICE HOURS aa —_ 15 
OBSERVATION HOURS © : ‘ 16 
—@@ END OF FILE CARD | : 
‘\\PREP HOURS PER WEEK ~ " oo. 
ONTACT HOURS PER. wEEK Pgs ,  FZ@ 
LENGT HIN WEEKS pA » 4% 
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' 450 
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‘ 2:0 
"3600. 
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te 


ege 
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[TABLE . 4 CONTINUED — _ : 
“STUDENTS PER-IA OR PC. 4 
HOURS PER WEEK AND NGe OF STAFF © ~. & 4000 
GRADUATE ASSISTANT HOURS 6 - * 4618 
OTHER PERSONNEL HCuRS nee ae 3030 
CLASSROOM HOURS f 8: 200 
> LABORTORY HCuRS° (HRS « X STAe) 9° 1.75 
LIBRARY HO"URS CHAS x STA) Slo _ e12 
MICRO TEACHING HOURS PA. 2 6090 
ELEMENTARY CLASSROOM HRSe ~ . (12 1.00 
ELEMENTARY STUDENT HOURS co, 7 43 00 
AUDITORIUM HOURS . 14 200 
OFFICE HOURS. ; . 35 00" 


OBSERVATION HOURS 6 °00 
@@ END OF FILE CARD , 
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‘Sample COMMON Statement For > i, 


Insert the fo 


in each. program or subroutine deck ¥ 


of EDSIM-4 wh 
with COMMON p 
2 


“EDSIM-4 
Llowing deck of cards _ 
ere the card appears \. 


unched dnczard ‘columns oN 
through 6, 


LANGAGE ARTS COMMON = 


COMMON/17 D(200.50 ) 
“OIMENSION FD( 200.50) 
COMMON 73/5 TATE (20016) of 
INTEGER  OVSTATE, STAIA, 


COMMON /BLPCIKUSOs 12) s 
. COMMON/S7 ITAPT(10C) «MA 


sf 2 ‘STUDENT DESCRIPTORS 


sMXDRvMXDC«NSTUWNDC. » — ACTPT+ATRPT ». 


& EQUIVALENCE (¢(FD,.D)..° : 
IXSRaMKSCaNSAR, NSAC + TNO 4! IPCI STATE 
ACTPT + ATRPT. 

: ‘SYSTEM DESCRIPTORS 
MPBReMPBC.NBLK eNPBC. 5 
PT. NOIA : e Sy 


COMMON/67 FCPT(SO) « MPC 4 -NOPC. 


COMMON/9/ TYF-E(30+125) ¢ 
COMMONZ 77 HOURS(15<2 cn 
INTEGER PCIA,PCEY 
cOoMMO N/CTRLZ WEEK iv aee 
INTEGER | WEEKDAY .S 


: STAB ERG. NiAReRI ACA TVET 

‘ MWIES « MHRS « NwkS e NERS | 
STIME OTs ICASE sETIME «ST IME sNWEEK 
en aTIMEs OT > ICASE eETIME.STIME : 


Shes : ; 7 


pa a ee 


PROGRAM sETUP 
__COMMON____ 


——— —— —— —--. ee i ee 


COMMONS 10/7 ITEM(48), IwORD 
—COMMONZ IIS I TEMP CEOO?. : eee 
COMMON,s 12/- ALOAD, ICOHSRT. COHORT. 'STAR(ZO) 

IMMON_ 4147. 1SEED (20). Le 


rr a a er ee ee eee 


-——— ee es 


c ow * HERI H HER ETEK EERE E EET ER HIE RR 
we CHE KEKE RR RERE OO METER ee Teele St, ee 
Cc. Ss HRERMREREKHE AE ENE EEE EE REE ERE & HEHE EK : a ae 
Se ee et TAPE .10..LNPUT_DATA_F OR. SEosima 
Cc ' TAPE 11 ys&O. FOR TOTe RESOURCE AyAlue 
S| READ 60, Toc 4) Ler ae Seen 6b te ———— fee eee eee 
wRITE( 61,1924) Icrpl, icre ae 
ree | 18 hace nso; <8 Oe ole een ee RS 
“READ (60,1066) ETIME + 
_. IREAD: (60.1006) 1Ch6e 22 
READ (6011005) NWwEEK . - _ 
_WRITE(6)e1Gl0) STIVE,ETIME 1 CASE «NvEEK {ane aren 


tug READ( 60. 1008) ALOAD ° He, . 7 
cnt oe READE O9 1006: 1CCHORT 6k 
WRITE C6le1011) ALOAD -' . | 
Pee, hy fA a Ae Be Oe ES) 9 |) 2p ee 2 veo ESE year ES 
‘ PEAD (6041005) (STAR 1) 41Fi0 16} oo . 
is WRITE (6103009) _ ({STARCI)01L Stel Qo nn at ae 
© READ (6041003) (ITEMP(T) 412166) ISEEDC 5) es 
WRITE (61410974, - EMP {-T-dy Teh 9O)-- 1SEED(—S.) —-—.- —_______-_—_-_—--—.. 
. WRITE (61,1501) 
5 DO 20. I = Led 
20. 1stFO(L = 1¥1n0021020. . 
— CALL INPUT : 


2 SETUP_RANDOM__NUMSER_GEN ‘a 2ATOR SEEDS 


i 


————CALL_INLTIAL EES Se en ORO ONE ee, 
c : ee i = 7 
—c- — 

- REwIND 10 aa: 


-____ _WRITE¢10) ICT Ls tere VSTIME ET IME. NS TUs-LCASE. NWEEKsALOAD. IC LCOHCRT _ 

‘ WRITE C10) ISEED.STAR 
SS wRITE Co) DaSTATE: PCL Ay LAPT SPCR T +. TYPE sHOURS +: LTRANS eee 
. WRITE( 10) 7.  MXDReMxOCeNSTUsNDC ¢ ACTPT « ATRPT “ 


i eR CEANS AR NERC 
2 + MPBR»MPBC.NBLK «NPBC a 


ao MART NOTA MPC NORCO 
4 e. MIAR, MIAC, NIGR« NUAC, I TYPT ? 


or MyKs,MHRs_ 4 Nywks se one 


+. MTRR, MTRC.NTRR, NTRC 


2 ca_pune oe 
CALL. DISPLAY ¥ 
-WRITE (6151000)... . jue 
1000 FORMAT(IHIs 10Xe -* PROGRAM INITIALZED * OUTPUT ON TAPE 10%) 
1.00 1-— FORMAT.(50X% 0. - 1-10. —— a ri ee ee nee 
1002 FORMAT(SOX+sF 1002) a . , : ., 
1003 — FORMAT (6A8 42x46 120)...—..-—_____- — _—.. ee ae eee eT 


1004 FORMAT(1615) . a 
_—1005..-FORMAT.16FS ee Ge, 


a a “FORMAT (50Xe110) see BO 
+E ERIC; -FORMATOCIHO 05x 06AB 12x 120)... 02. aaa chet aa Tee 
FORMAT.(SO0X+F'10s Oo) .. = 


ial eee em re a es eee ee eee ne memo means be mee ee eee meen mee pane ree oni me oes emarmenmnnn mammane 
t 


__... L0Q9_. FORMAT ( WHOelike*#NUMBER. OF STUDENT ARRIVALS By. SEMESTER* Fo wn 2k 
1 @HO016 Ke16F5".0) 


—l1010FORSAT(1HOW)ExXe*STARTING TIME CF SIMULATION Ls. PU OF re Stee 
WHO lOxe* ENDING TIME OF SIMULATION #1 lo, 
peer 21HO+i0OX«*.. CASE NUMUER. CF. SIMULATION IS FTI O7 
21HOe 10x * NUMER OF wEEKS PER SEMESTER IS *#I10) 
-—1.0.11__ FORMAT (1HOe 11 X#MAXIMUM LOAD -PER .5 STUDENT -IN-HOURS..PER WEEX iS x - 
‘1 FlQe2) 


10.12 FORMAT( 1HOs. 11x. *NUMBER CF .STULENTS. PER_COHORT_1S_#* 110). ——__ 
1024 FORMAT(20x«*OUMP FLAG 15 SET TO * I1loss 
1_20X-s._* ARRIVAL. FLAG_IS.SET_IO_*_1J0..)_ 
1501 FORMAT(1H1) 
________ STOP _$_END 


c ; , ape se 
SS ea ee Oe : eres oe 

, SUBROUTINE INPUT 
_COMMON. an 8 a OO er aE I ORY re ret Nn ee ter 

_ COMMON, lo, ITEM(45)« IwORD : . 
SREOEROONNR 61518) 7 21 ea ta oats =k hc (2 ee ee ae ee ee ees 

Cc . - 4 READ IN .PCIA FILE 

soo READ IN PC POINTER FULE 


NOP == 1 . 
ee 
MPBR =56 S-MPBC = 12°S NPBC =12 
NE MPBREDU 
DO 60 I = 1,N . 

READ(60+1001INO» PCPF (I) e (PCIACT J) sJz2eNP PBC) 
‘TF (EOF +60) 100.45 
45_IF (NO..eLE*e_NOP). 465.47. 

46 WRITE (61. 2001) NOP.NO- | 
get GT OR as ee a ic a cn er 
47 READ(60.1001) NO2e1Xe (ITEMP (J) 0 J= 1 yNPBC) 
FE (FOF+.60)__100.55 
55. ICNT = 0 
-—-DO.50..J.-# 2. NPBC_ 
SQ IF ¢PCIA(IeJ) eNEe Oo) ICNT = ICNT + 1 
——-——_—--PCIA IL). S109 
NC= YCNT #1 |. 
WP 171 61.10011NOs_PCPLLD «_tPGIAC Laa)).9 2 LNRBG 
~WRITE(61.1001) NO2ZeIXe (ITEMP CI) 6 J=1eNPBC) 
ae Ce en ee 
bo migrates saciid a : ; 
7+ _LTEMP( J De eee ee 
57 PCIA(1eJ#1 = POIA(LeJ+1) + 1Z#2*#20 _ 
eo JF OTe EO a 100 )GC 70. SO ss 
WRITE(6161015)1Z+ (1 TEMP( J) 5 J= te ICNT) 
STOR 
59 WRITE(6141016) Le(PCIACT edd evale NO) 
—__£0..CONTINUE 
WRITE (61¢ 2003) ; 
eee i», ene 
100 NBLK = I ~1 ; 
-NOP.C_=_N = re eae ene eee ee 
c “READ IN ITA POINTER FILE . 
A a a a es 
N = MAPT + 1 
NOP=Q_. canes J wi ee 
DO 90 1 = 1aN ae 
= __PEAD(60.1003)NO, 1A, 19053. 2 ee 
ERIC IF (EOF 660) 155.85 
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ae ee me ae ne ee ee en See ee 
oe ae emcees mas —— a 


cen a ne were. i et ee ee re re eres = 8 eae ee ee ee oe es 


ae ee oe Stee Shay 


ae eee 85 IF- (NOP eGE eNO) -- a6. - 87-—-——— — 
- 86 WAITE (Gte 2005) NOP. NO - 


JT OP oe es Se ee 


ee 87 1APTCL) = BNqooacecG 
LAPT CLI= 4 APy CLL .+ 1xe22#24 + _LAH2ue te ee ee 


sch ap a as a eh 
990 WRITE (GLa LOCS7TINO,: TA gIx el APTCE) 


-WRITEL. 1644 ~2CCIL oe eee, 
sTOP 


—-————155-- _NOIA_&_3= at eee ens 
READ IN RESOURCE FILE 


M1. AR__=_30. _SMLAC_=. 25. % NIAGIS...21_ Fe a a i et ts 
N = MIAR + 1 
—-— —-N0®=9.. 


DO 80 I =1leN . 
READS 60,1002 3 TYANOST TELL AS) avalaiSy 


- , le ITY2e NO2e (TYFPECT eS} eJZIGeNIAC) 
IE CEOF,60) 50.75 
75 IF (NOPeGEeNC) Ve 77 , 

SA _VRITE 1616 SC, ak ae nea ences east 
STOP 
77_WRITE CEs 1006) LT yeNOe _£ TYPE CT ets JeteI5) 
Tel T¥24 NOSe CTYPE CT eV eVEISeNIAC} 
_..80 CONT INUE : : 
WRITE (610 2011) 
9 le TORS : 
ISO NIAR = I = 2. ae 
: “__JtYPT_= 258 M = 25 eae 


a ay 


ee ee 
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ne ee on 


et 
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ae a eee 


N = MIAR + 1 P 

eee __--_PO_165.I = 1.N ee 
156) READCHOe1 012) TTY ehkOe AIx ; 

ee EOF 9 60.) 1766.160... cisedcette 
160 WRITE (G61-¢1013) 1TV«NOcAIX 

ee OS TYPE NO, I TYP TD SAI oe | SRA ease enc eee 

: , . WRITE (61e 20133) 
Se STOR ane See ey ke 
READ an RESOURCE SENS TENTS 
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0 RLTE« 6s 1009)_ 
MwKS = 15 S MHRS £-20 §& NWKS 2 15 


I XS MHS +1 ; nee 
00 215 1 = 't, MHRSx 7 
E401 600.10199_ hal2sf3ot4 _INODEXs. HPS sANQ___ 
tf (EOF 60) °300.190 
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190 WREE(SlalotIa tls Ie, 135.14_. INDEXx»_HRS_»_AN 
IF CENDEX GT. MHRS) GO TO 7778 


DO 2001 WI LF Le NUKE - , 
200 HOURS (Twi e INDEX) = HRS *# “ANO 


~ -215__CONT. INVE._ ea ae EE ET A 
WRITE (6142015) : 
STOP... ene ee ne a et 


300 NHRS = 1 <3 
eee eee NEE ~ | O)- | eee 
1001 FORMAT(1615) : 
1002 FORMAT (._.12,.13,319F5 7Y,) erent ees ae a ae: 
19003 FORMAT(21 10, “aes : _ 
Saas: --——_-——! 004___FORMAT( 4912 i et a 
1005 FORMAT ( 1HO. pote ; 
1L006__ FORMAT ( 1HO + 254 _ 2 5FE62)_ 
1007 FORMATE. gel 1Oe 1OxeOlOedxe 7X.016) 
_ aco A OOF... FORMAT ( 1414 10x FTYPE OF RESOURCES +27, efF ILE POSITIONS, Tox. 
. 1 -#HGYURS CONTRIMUTED® 2X0 i #TOTAL Uttty +7 
§-54 | Bs ie salted de lal ieste =o 
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Le ee ee on 


ES NN Se eo mn 8 ae S| 


ee ee ae ED ED a eS | mine Semi sett | 


eee ce 


0 eee eee cn eee aw cree tmee oe een ee ee em ee an come rae 


ae 
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fie + 897, *, | 


o 


ci SEE SRO | sR REE ERED Ate SUS RE AS See NE ED SE eee ene cme ee ae Rimes Jb Se Speaateremien o hia y ce 


ve ee PBXs ZPER UNIT CF #05Xe 22. HOF RESOURCESES 
3 BOxX« FRESOURCE #77} : 
Cee eee - LOMO FORMAT CGA Sx eblos2FhlSeO)-- 
1O1L FORMATE IHO. EXe 448, 12e018, 12x60 2F 1502) 
oe oe ne ee ee 1 O12... FORMAT (I2.13,5x%.C16). . -—---_ 
. 1093) FORMATC 213 005x.03 6) 
—————————-10 14 FORMAT CHG. «.--8AC CATA BEING. INPUT. #.-9..—————_ 
: 1015 FORMAT(# PCTIA SELECTION P505¢ SUM TO LeTe 100 #41515) 
ae IG 16 ORMAT OL 10 256 50207012x 0 5029) 
ISO! FORMATCIHI?D 
—- ——— — —7778--- CALL ERROR ( 6HINPUT—, - INDEX, -MHRS +0 6020-0)— 
Cc : 
pee Go = ee FORMAT..STATEMENTS ee ee, Se eee 
fc . 
pe ee 200 1-FORMAT IH] 4 8 ate THE: gee 3LE_NO_.1S- OUT..OF_ ORDER «JHE PREVIOUS ~V.: 
c IVE WAS eX el Set, THE CuRRENT WALUE IS #¢15, = 
ay oxe# THE RUM WILL BE TERMINATED _ AT__SUURIUTINE. INPUT. .THE ER. 
4 BR WAS DETECTED AT LINE 45%) 7 
.2005-_-F.ORMAT.CIH] ¢.4#__THE VARIABLE. NO. 1S.0UT_ OF. ORDERe_ THE PREVIOUS.¥: 
TUE WASet el Sete THE CURRENT VALLE IS #,1S, - 
ae LOX FTREL RUN WILL BE TERMINATED -AT__SuBRCUT. INE _INPUT<__IN6_ ER 
: 3R' WAS DETECTED AT LINE 100+74) u 
——— 2002 FORMAT C11... # IME YARTARLE..NO_ 1S. Cut CF. ORDERs__ eg 
«IME wASe# el Sake THE CURRENT véLuE Is #,.15, 
Os LOX s *THE_RUN WILt BE, TERMINATED AT SUBROUTINE | INPUT s eo 
3R WAS DETECTED AT LINE 185+6*) 
2003_F.ORMAT.ALLH1s_74/ 0% THERE ARE TCO _NANY Pes So-_ THEREFORE THE | AM 
ILL BE .TERMINATED AT LINE 60+! IN ZBecuTine IMPUT#) - : 
——— 21009. EORBAT (ARI «77 a* THERE _ARE TOO_L“ANY_Teade. Son. THESEFORE JHE Ru 
ILL BES TERMINATED | AT LINE 9041 IN SUSROUTINE INPUTH) 
ZOLL_FORMATI THI AA0% LTHERE ARE TOO, “ANY RESOURCES. THERE 
. "JRE THE RUN wlll Ge TERMINATED AT LINE Dk IN SUBROUTINE INPUT#) 2 
ee 2013 FORMATCIHL:e 472% THERE ARE JOO M&ny RO .OURSES _. AE THEREE! 
IRE THE RUN wiILl BE TERMINATED AT LINE “16541 IN SUBROUTINE INPUTt 


a es ete a et 


— 2015. FORMATCIHL:_/70#__THERE, ARE_TGO_MANY_RESSURCE GONSTRAINT S==THERE? 
IRE THE RUN WILL EE TERMINATED AT LINE 21591 iN SUBROUTINE INPUT*: 
—- BR WePs___s_ En 
c 


ee ee 
ae | SUBROUTINE INITIAL ; 
wee AMON 
‘COMMONS 117 TEMP? 100) 
rea OS KRTUP_STUDENT_ FILE. 
ACTPT = 1 S$ ATRPT = 47'S MxOR = 2900 & MxOC = 50 
NSYuU_ =. 00 $ NOG 5 
6400 N = ATRPT -1i 
6420__D0..56. 1 =_1.NSTU 
6480 DO SC J FtiN 
; 50D t 1.6 J.) 2.999999, donchemees 
Cc SETUP STATE’ FILE . 
——_ eM X SRE 22 00__.SMXSC_W2..194.5_NSAR_S_NST U__>. NSAC_=_ NBLK ss 
D0 9O 1! =1eNSAR 
NX..=-MXSC 724 .. — 
_ DO 90 v= TeNy ; Se 
ee PO STATE CI OU). 2.0 2. 


eee. 


. ' MSTC = NSTC = 53° xt 3 
———_____—__MSTR__=_.NSTR_ RS Sac a a get es ee a ce 
ae c CONVERT TRANSITIONAL PROBAUILITIES 
ante ene MTRR = EOL! “AMTRE. = 53 i. naueiciraetone ante. ak a 
NTRC = NALK 5-55 


aes inchs Na saas ad tev ain ania ean ad aan eee sean nee here's ea al ocinie Semeweeeaie Si aL aee Sai iaes Ahn: et geceey se gree Sale 


‘<) 
ERIC 


Ae = nm ne oe ee 2 ee Se rte ae eg ee ee ae ee 


— —-——-NTRR .s-] -------—-—- — Teen neeeeeoeer, ee ei 
BO 100 I = te NTRP ; 
2._-©B800__TEMPL1)_=_06<0. a 


DO 100 Uv = IeNTRC 

TRANS (1aJ)_.=_1000/NULK We 

6860 TEMPCI) = TEMP¢ 1) + TRANS( I ev) i 
100 CONTINUE _... Le. - a 
DO 125 I = I.NTRR ane é : 

oe __DO_125_J. = 1aNTRC __. a 

6940 TRANS(I6J) = TRANS(1e¢J)/TEMPCI) - / 
—_-—1.25___CONT.INUE en ne ree oe Se ee I eRe we 
‘7000 N = NTRC - 1 j 
OO. 2001 = 1a NTRR AEGIS ec 


- 7040 DO 200 UV =1leN 
—__/060___TRANS.(.1.J#3.)_ = TRANS (CLlevtl) + TRANSLieud ———__——_+- 
200 ~~ CONTINUE: - ; 
WRLTE (614.1003 ee ee a 
DO 225 1 =1415 he ; 
ee sere LI_CHOURS Cl sJ)aJ25e16)) “ S Le 
OuMP TOTAL HOURS ON TAPE 11. 4 


Cc : , -+ ADJUST RESOURCES FCR PRE SCHED ACT. | 
sO OLA OY i 

ITYPE = TAPT(IA) eANDe 00000000777700008 . 
[TYPE = _1TYPEZ2ee le. 
IF CITYPE SEQ. 0} GO TO: 400 a . | : 
——_—_____LE UL TYPE «Ls _0 ORs _LIYPE_«GT-»_NLAR).. GO_10. Ff oo : 


c CHECK FOR PRE SCHEDULED TYPES fo, 3 
WK TYPE CLTYPE s LTYPT). ~»AND« -2o900000CCa0CCos__—___ -_______ a 
IF(CIX eEQ@e 0) GO TO .400 ; 

WEEK H& 0008 S02000CCCS CCS is —— : 


; '  $JSCHD = JAPT(EA) eANDe 67777777000000008 

Seth a Ot Ns a Ls 
_ ¢ _ * CHECK TO SEE IF CFFERED TALS #EEK 

ICH = 1SCHD_.«ANDe_ WEEK , 

e.g IFC ICH eEQe 0 ) GO TO 300 i 

ae OO reouce_pesournces 

7 DO 250 J = Se NHRS . a 


tee + 


— HOURS Cle) = HOURS ( Iwey) = TYPEC TYPE, J) 0 
IF ¢ HOURS(IWeJ) eGEe 020) '  6O TO 250 eG | 
—_____—wRILTEL61s1.000). ABW de TYP a 
STOP . . 
a ONT LE | e 
| 300) wEEK = WEEKs2 ~ <3 
—__400_ CONTINUE. o 
WRITE (6161004) : _ | —_— 
et GO) hate 
500 WRITE(61s2001) (HOURS(1+J)eJ=5016) - | oH 
sc es IN a a ae eee ee 
1000 FORMAT(IHO.!10xe * RESOURCE NOT AyYAILABLE TO CONDUCT PRESC EDe- J 
APROTININ, WN ck oY Ca tre os Si 5 SANS de ne ere een Ny SDE esr 
1001 FORMAT(1HO«10K« * TYPE CODE TO LARGE OR SMALL * I10) i ae 
——1003—.FORMAT( IH] e30Xe. *.. TOTAL.RESOURSES AVAILABLE #7). _._}.-.. . 
"1004 FORMAT( IH! .15xe*ADJUSTED RESOURCES AFTER REQUIREMENTS HAVE. BEEN® 
Jae MET FOR_..FOR..PRESCHEOULED 1A #7). | 


2001 FORMAT( SFE?) . | . 
——FTTT_WRTE (616 10013..3 Le et net aeeeeae ca ee 
STOP. ' 


~—--7120 — “END... (opateeniae Aes ee ete 5G. cee ee te rey 


a on em i a wre cee ae ee = ee eee oe tne mw cee ee | eee se ee te ete ee et ee oes eee ee 


SUGROUTINE DUMP 

sc tat as ations esa CIO NAO Ns oie Secession at Sata a nn Fr 
EQUIVALENCE (TWORDeWORD) , 

= COMMONS TOS. ITEM C4830 PWORD -——_..---— —___ 

COMMONs IIL, ITEMPC100? 


ET ol PCIA. TAGLE-.OUT- 


eee eee 


LinE = 0 
oe a 20-.100-- 0 - 1 NBLK. 
; IFCLINE =-(LInes25: * 25 «EQe 0) £8.59 . 
cee eee ee DB. WRITE (6343009). : 
WRITE (61e1C00) ; 
Peete oer een ee ee WRITE(G6101068). (KsKele9) 
4 s9 LINE = LINE + 1 . 
ENTS PCIAC! A a an 
DO 60 J.= 2eKNT 
ve earner eee eee en ee TEM I JR 1) SE PCTACT J). eANDe: .000900007.777.77778..__.. =. 
60 ITEMP(J=1) = PCIACT eur s2Hx128 
wee OBEN KT. Ue ey 
WRITE (61.1001) TePCPT C1). PCTACT e126 CITEM( I) eJEl ei ? 
WRLTE (6 Le1Q10 2 LIEV EC) JEL KN). : 
- 100 CONTINGE : 


er re ee eS N/a 


Oo et ren eae eer meme. 


ee ee —PRINT_IACTEILE os bn ceesis east 
° LINE = 6°: 
cee DO ..2PCO_INLE. Le NOTA 0 earn arene 
ee IF (LINE =(LINEs50) *# So «£Qs Oo) 119,128 - 


ID WRITE. (614.1069) : 
a wRITE (61.1071) ‘ 
wees a WRITE ~(61¢1CO23_ (JKeJKELS ISD. W. eer tis women mene nes sete nes ret wae 
128 LINE = LINE + 1 oe . 
N FL ge ea ene eR OL EARS Oa 
NO = anne eANDe ON9D00000C0CC77773) 
A CJAPTI9._ e AND. *000029002727277 728) 
1A lasaerle 
LWORD._=-. PAPT4.1 3.2 
, CALL BITPK 
aaa een eee! ——$_—___—_WRITE.(6 14.1003 )_INs tAe—(LTEM U1) 4 1210.24) 
200 CONTINUE - 
ete RESOURCE REGU LAEMENTS. a 
LINE = 0 : ; 7 
~—________—00..400.~1_+.. eR coe ee 5 ee ee ee ere 
a IF (LINE =(LINEs30) * 30 «EGe 0) 386.399 — 
—-—____ —___ 388 WR ITE 614.1006 )— 
WRITE (61.1076) . 
——- — WRI TE-(.61 1077.31 K Ka KKed al) 
399 LINE = LINE + 1 ds 
a e390. LJ NIAC. —_ a: aS eee ea cose es as 
390 - IF CTYPECI J) eEQ*e Of0) TYPECI.J) & O°0 . : , 
ee WRITE (610 1007).3 0 (TYPE CLs J) us ELON ACY 
; . 400 _CONTINLE 
eee WIRE (616 1089)__. 
DO $00 I -= 1,.NITAR 
cee eee ee WORD US _L TYPE CT oa pete 
CALL BITPK ; 
eee WRITE (61g L009) De (LITEM (JD 9 S21, is a es a ica 
S00 CONTINUE’ 
WRITE CGT 0 DOE) 
DO 250 1 21.15 
250 “WRITE (G1e 2001). (HOURS (10d): JtS016) 
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2 ere ene ere ae eres wie eee Sa TN ED scene NR eme © ae 


SBS Sean croatia och sin ieee cw emmenee meee we ee “ 
WRITE (61615901) | 5-57 , 
e 


ae. 
ERIC. 


———- -—— -CALL - MET CT RAGE IRR ETRE NTE IRE KS See sett 
1000) FORMAT (1HO.5x.* PC NUMBER *23x, *# INSTRUCTIONAL ALTERNAT I vi ~S%eSf/ 


A_ 51x. eased gl IATA EN Ft 
TOOL FORMATCIH « SKe31IB sews 151 Se/( 1HOe 31K. 1515)? , 
——-1902 . FORMAT (39x.1513e7) ..... 
1003 FORMAT(CIH ¢3xe2110015x%.2413) . 
—__1004....FCRMATCIH .13x%.120.10x%.120).. 
10CS FORMAT(1H1.34x.*P C POINTER FUL E &yy on 
PK PLC. He 22K H_PC_TVPEMe ss) 
1006 FORMATC(IHI~«35x. FR ES OURCE REQUIREMENTS FLIL 
Be Oo Io AP op [one ee eee eee, See ee 
1007 FORMATC1IHOs 1S . 2x0 21F60e2 ») 
__-..1008.. FORMAT (1H1e39xXe*Pe. Ceo = Le Ae. FLL EF * 9 


1009 FORMAT(1HOs 11042015) | . 
seat OR MAT LEE: pT MF ey 


ae ee ee 


1068 FORMAT C19Ke*( TYPE) #s ¥(NOQe)#e2015) 3 
——.1.069._FCRMAT.CIH1 «22x e#SCHEDULE _OF.. INSTRUCT. ONAL_AL TERNAT.IVES*0//)_- 
VO71 FORMAT (110% TA NOs IA TYPE #e25Xe*# (WEEK) *) , : 


1076_.FORMAT_(3X oe # TYPEX._651X0% (FILE POS UTION)#)_: 
1O77 FORMAT (3X e*CODE* «3X e20614e2X) 07) . 
___ O88 FORMAT _CInIe 

"1089 FORMAT(1H1+20Xe# POSITION 1 SIGN BIT #7 .* _ 
a ee st * Posi ON_2_PRESCHEDULED_IA = 1 #4 0 0 
i 21X%e* POSITION 3 SERVe TIME FIXED = 1. #7 _~ . 
1. 2 Xs%*_ POSITION 4 EXPRESSIVE OBJECTIVE = 1#7) 


1501 FORMAT(C1H1) 
#001 FORMATCISFS&: 2/LL_ 


15750) «RETURN SEND me 
a ee pe an ees oman ns 
Cc ef ; } 
____ SUBROUTINE BITPK__. eS ee ea a 
COMMON/107 ITEM(48). IWwORD 
LTEML1) = 9 ee ee eee eee aha oe Ea ne NE 


MASK = 2000600000C00N008 


ee, |. loo _l_ =.2.46 ___ 
IX = MASK eANDe IWORD 


LEM. 30 ARO Sees Se a a eR PCS ONES 
IFCIx eNEe 0) ITEMCI) = i ee : ‘ “ 
_____ 109 MASK_= MAsKv2 


- - RETURN. S$ END a om 4 oe 


Cc 


___ SUBROUT.INE ERRORCI. was Bec. O.E.F.3__ te eee 
-COMMON/CTRI_Z WEEK. DAY «SEM: «TIME.OT.LCASE. eTIMEVSTIMe. NWEEK 


INTEGER ._____ wEEK eDAY «SEM» TIME. DMs. ICASEs EXIME,STIME 
: WRITE(61.1001). TIME’ TeAcBeC DEF : 
_ RITE CEL 10C2). o—T.IMEs PeAeBeCeDe Bak. 
1002 FORMAT, c# or eoe _#*110+A6.6110) 


—__-1001_FORMAT_{_ *._ ERROR_#..110 sAGs6F 15 62) 
- - RETURN & END a 
a > 


rr 


ae ese ee nn ae ren rere ete ee emer mre ene ee Cee amma ome 


. Cc: 
“PROGRAM EDSIMe ~ 
COMMON 


wen ae eter ee an = Paes) 10° 


COMMON/SIO/ STAT(20) 


COMMONZ12/ AL OAD. ICOHORT «COHORT «STAR( 20) 


oe" COMMONZ 137 17P (59) . a ia 


COMMON 7147 ISEED(20) 
COMMONZIS/ CUTC25O) ., 
COMMONS 167 TEYP CTS eZO0)4 SUMA(39 <5) / 
COMMONyZI77 Ryse&(12.15) 5 


TAPE Io INPUT FROM INITIALIZE 


C 
. . c TAPE 11 TEMPORY OUTPUT FOR HOURS 
“ : Cc = . . 3Cyl Is TAPE Oy'sP FLAG 
~ c aa ICT2 1S SYSTE* DUP FLAS 
, ¢ HREREREE EEE REE EH START PURER RRAEERG ENTERED SEL ewe 
eet REWINO 13 a ° 
ae — PEADCHL) TENA 
- REWIND 19 8 ee a . ; 
= te... ~=READ CIO) ICTLe ICTZ¢STIME sETIME eNSTUs ICASE sNuEEK« ALOADs ICOHERT. 
WRITE (60 0 1COS)LCTI TICTReSTIME SE TICS oNSTUs ICASE Shae SEK yALOAD my 
ee: 1 ICOHORT 
ia ‘ “"" READ(102 ISEEC.STAR Pq 
TCT READ .€10)° O,STATE LPCIA, LAPT «PCPT CTYPE HOURS « TRANS 
- READ (To) - MXOReMXDCANSTIeNOC « ACTPTAATRET 
i 1- « MXSReMxXSCeNSAReNSAC f= 
- 2 oo « MPBReNPBCeNELK eNPEC 
ne eee 3. See ee ne SMART. NOLA MPC \NOPC |. 
“4 4 MIAR SIAC MIARONLACs ITYPT 
ed obese ; _ 5 7 . - @ MukSe MARS. « ONS NHRS 
_ a 6 e MTRRWMTROWNTRRANTAC 
a i WRITEC 10 9 STIME. ETIMEs OTs NSTUs ICASE WN gex ees 
“¢ HEHHPERDEE EEO HETEINITIALIZE | SYSTEM. FeSERSUREbeneEEHAteceseraene ios 
a £. £ oS 
aii ~ REM AD oT °E SNSAR ‘NSTU . .% NsTR. NSTu. | S 
ISEM = SEM a 4 dee 
ss wRITECIIT) HOURS oe ; St i oo fe 
RATE © STARCISEM) 
ail ~""" NSTU #0 Oe ee 
sieges idieetiece en eee = sp eOnunl Ce eee oe - Pee me ereemes Ore sa Ca Rmmntace tea dese © CsmmOCemNere eh Oem Te eee 8 
Te TIME © 4 a oe pee 
OT = TIHE . . , ow 
aacenee CALL ARRIVE(RATEs ICTS) OF . aad . 
» WEEK = 00040000000000005 . ce 
= ‘WRITE (6143000) TIMESDT » ICASE ETIME + STIME +SEM«NSTU 
_ bDOS 1 21,15 
Se aes, 00 5 ‘Oe 21,5 ton as ee 
# SUMACI. J) = O80 
ee SUMA( 1.4) = 999999909 - > 
ee ee ee BB, SUMACT GY 89999999909 a sto aeceay 
7 GO TO 95 


c  shehiatahahahehahatatchshahetahehchehihalatehebdetatehdl SETUP TIME COUNTER: Tete irri iret rs’ 

“" “LO CALL TIMERCISTOP) | wae ee ” = 

IF CISTOP eNEe OF GO. TO 33. oO 2 ; v4 

. IF ¢TIME —CTIME/NWEEKIENWEEK eNE 1) GO. TO 11 ‘ 

__ MB ISEM = sem xe * 
RATE = STARCISEM) 

ats CALL ARRIVE (RATES ICT?) 

cy WRITE (31.1050) TIME, OTSTCASE ETIME, ST IME, SEM ANS stu 


“$4 CONTINGE - 


Cc Maegan SCAN. FOR COMPLETIONS Trrri tir Ts na 


a 


Ca oe 
ee 15 1§6TU =O . . fe eee) GN ES ie ee 
S50 ISTU = ISTU # 1 
Eee: CaN ZERO Out STUCENT LOAD isda 
: FOCISTUsATRPT+2) = 'O0O © 
a IF CISTU eGTe NSTU} GO TO 95 
sommes "4S CALL SCAN (ISTUSIFLG) | oa 
c : : IF TELG EG 9 MEANS STUDENT HAS NCT COMLET 
ye a IF CIFLG eEGQs 0) GO TO SO 
ee , , CALL PASSCISTUsIFLGe IPASS) : 
_ € UPDATE STUDENT RECORDS 
ee 2 CALL UPDATE TSTUsIFLG,IPASS) | 
: GO TO 45 - 
Co REEF RHERK ERE REE — SELECT ACTIVITIES 8 FKREEER FERRER EEAEEEEE HH, 
aaa 95 IFCISTOP eNEe 0} GO TO-SN0 A 
Pee ee eT eee ee 1 STu_® 0 ~~ oi Fee ee OF * € ee se ee ee ewes ee Re a 
Cc SELECT PROCESS ELCCK j . ee 
eos “foo tc = 1 : : 
commer" SS 840 Istu = Istu + 1 oe . 
IFcisTru «Gte NSTU) GO TO 40! : te 
meer Ee 998 : et pecet cae aan ae (Se 5 a 
, mae CALL. CLOD {TSTUSIFLGE) : i 
eEee e  E ; STUDENT HAS FULL LOAD THIS TIME PERIOD - 
1F CLFLG2 vO. 7777) GO TO 100 . oe a gt a 


| Oe cere eae whee 


“120 CALL: SELPLEK (TS TUsTBLK) : 
7 IF CTBCK sEGs 86865) Go TO 100 as 
a ee. - ; BBS6E WO BLKS COMPLETED © 
| ee : OR NO ROG! IN D FILE OR STUDEN 
beeeteeeeie FG cee ge mrentes ntmaeemere on mo gre EMBL T. OR ENGAGED IN au 
: c ; “77777 ALL ELKS COMPLETEG 
i ee “ 7" “VEC IBLK sNEs 77777) GO TO. 200 


c REMOVE STUDENT Fro THE, SYSTEM | 
eee eee CALL REMOVE (1STUsT STOP) : = 
vee ee PST F STU SD Goes i es eT rare 
© Z i = co TO ae 5 seen aaa Fs ame at alias ae See ——s See ne oe See aaa 
Neste aitd oes ameetatetn, uk quae abe . . SELECT. ACTIVITY: ‘ 

a “ss j Se PRETEST STUDENT. 
a ee 200 CALL PTEST(ISTUsIBLKs IPASS) ee 


IF (IPASS: «EQ. Qo) GO TO 216 . 
bales aes ee aa STUDENT PASSES ‘PRETEST. 
>» CALL” UPDATZLISTUSIELK eIPASS) 

STATIIZ) = STATCI2) & FO. 


nn ee ‘i wer ae 


: ae GO TO 129 


twee ~ eee ee pee Ome ee ee re 


vee sees ee ey BHO CALL SELAST(ISTUs1OLKs 1ACT JFLGI«ITYeESIS¥6) : . 
c BELBEB MEANS CAP OF PRE SCKED. IA REACHED cr 
c . RESOURCES NOT AVAILABLE TO CONDe 1A _ 


; “LF CLTYPE eNE. 888888 3 GO TO 300, 
229 f¢ = 1¢ + 1 

* aFcle eLEe 3) 3 GO TO 120 
‘STAT(OD = STATCP) 41 


een ees Oe ae we 


-GO TO 100 | 

eter ee 300 CALL SCHED. C1STUs TACT, IRL» ETYPE o TSHR) 

ee ae IF (IBLK e&G. 99999) GC TO 220 

Seat 7777 CAP OF STue REACHED (HRS eWEEK) - 
— oe TF TALK, eEQe wT}. GO TO: loo : : 
—. ' 60 TO 120 _ 3 
PITT Teer TPerrrrr TTT TTT TAPE DUMP AND END. OF LOOP shananaceerenenaeed 
ee _ 401 CONTINUED a a 
eS : ‘CHECK OUMP FLAGS 
a IF CICTLE e&Q6 oiWRITE tla) OTs TIME sSEMANSTUsDs STAT SOUTEHOURS 


ae eNRe, O) CALL DUMP (COeUelsleledl. 
a . 


ae 


« 


. GO TO 10 


ee eee ees 


ENDF SLE 


WRETE COL. 10901) TIME 


RRR RATER EEE RE THE END OF PROGRAM RUN 2H# se RRR 
e T§STOP, SEM : 


CALL SATACLT 
lo 


REWIND 10. 


c 


COMMON 


Sbemaathiaeeetdedeiaied ita 


gs Ge 56 


re en ee M8 om ee oH 


T7777 


-¢ 
c eee 


,, COMMON 


6320 


‘8360 
_., 8380 
“¢. 

8400 . 


eee ee 


* 


ee eee. mate a nee emmee. ee ee neee mira * 


CALL 
FORMAT(1OXe* 


) FORMATIIGI5) 


_STCP © 0 sen 


INTEGER EDWK.STWK 


"60 TO 7777. 
~ CONTINUE 


CALL DUMP COsCel ele leO) ; bos 
STOP 


COGRET AMAL SEREEEETEEEE EQQOR HiyyMO ERMAN GHEE RHEE ER ETE 
ERRORIGHVAIN — ¢TSTUCNSTU se ICeNL Ke 01002) 

10%. * END OF SINULATION BuN AT *® SI1Q) 

SIMULATION TIME IS # 1018) 

10T10) 


FORMAT ( 
FORVATE 


FORVAT(1OX. #wEEK MASK 1S # 016) 


FOR*AITC 2K e30F 400)" 


_ END 


“SUBROUTINE TIMER CISTOP? 


COR"ONs 107 STAT (30) 


TYME = TIME 4+ 1 
oT cs TINE Sit TIME) MERRIER 


" wEEK © wEEK/a: 


DO 210 3 = 1,30 

STATCT) = O00 

IF (TIME «= =(TIME/NVEEKPENWEERK eNEo 
SEM © SEM-+.1° ¢ 

IF (SEM -eGTe ETIME) ISTOP = 1. 
REWIND 11 “ 
READ(113 HOURS 7 
WEEK « ocosonoo0co00c008 
RETURN | $ END 


1) GO TO7777 


eT eee ee ee ere 


“SUBROUTINE SCANC(ISTUsIFLG) | 


8 om mbt c tee eno ee mem ewe Mee we fet. meee. ow cbeee ew meee me Fe 


COnMONZ1O7 STAT(30) 


* COMMONS 137 TPCSO) 


JF CUSTU ooTs NSTU eORe ISTU. ‘eLEe 0) GO TO 7778 
SCAN FOR COMPLET EON OF ACTIVITY 


‘TFLG & 


. ae eeereet: stat? pibetyeiecne. e000 wares ce oh Sse - . oe . 


NZATRPT<=1 | 
REREKEMRHARHHERREHEEE 
D9 20 JeM.Ne3 
IX © OC 1ST) , ; 

_EOwK &C3x eANDe / 00000090777777778), er ae eee oe ae 
x = IxvZaK2a Sia 

STWK &CIX eANDs 00000000777777778) 

IF CSTWK .0GTe- TIME), GO TO 20 
_ TF CEOWK eGTe /TIMES GO 10 20 
IF ENO wke LESS 


START MAIN LOOP #88 HEN HER EERE ES 


- 
' 


THAN TIME SET FLG 
IFLGEJ | 


oem te res me em te Sm tee meee ewe meee eS 


IFLG = 0 


. \ 
a 7! 77 RETURN . . . 2 8 a sae 
7B CALL ERROR (IGHSCANs ISTUsNSTUs I TYPESNIARGTACTs Jel) 
wee. CALL ERRORIGHSCAZ a luKeNweO10e000el) _ _ $ RETURN _ 
END ; 
_ oc. 
tqcete : bee chs 
: SUBROUTINE PASS ¢(I5TUsIPT.IPASS) 
“COMMON ~ PP . {3 = 
-_ COMMON/ 10/7 STAT(30) i 
“7 “COMMON 7147 ‘ISEED(29) ee 
i ia IPASS = 0 FAILS PC 
BQ ee te ipace 4 padeococe ae 
ei nie tO a ee, ea ee we 
TALK =DCISTUsIPT=2) : ; ‘| Soho « ot 
re es _IFCIGLK BLEe O eORe IBLK eGTe NOPC ) GO TO 7778 
LTYPE = PCET(IELK) (8 oo og ee 
ae IF. CITYPE eLEe 0 eORe ITYPE eGTe NIAR) GO TO 7778 . 


“ PPASS = TYPECITYPE.19) 
80 _IPASS=1 


Cc ie “CHECK FOR EXPRESSIVE OBVECTIVE 
oe " NO RESOURCES REG. ExPe IN IA 
: 1X = TYPECITYPEsITYPT) eANDe 04000000000C00008 oe , 
uaa a “TF CIX-eNE*e 0) GO TO 7777 

"CALL RANFSET(TSEEOC1)) eg ee 
__..9100 > x = RANF(-1) 

9120 IF CXsGEePPASS) IPASS=0: a ee a 
a CALL RANFGET(ISEED(1}) fs e 
a aaa ie eee “UPDATE STUDENT TIME REQe 
ites, x, = TYPE (I TYRE. ITYPT) e AND {ccoooaccoooo0008 ; a 
EX = TYPE(ITYPE.2) + TYPE CI TYPES 1) 

o> momen oe x EX * ry 

"EF CIX eNEe 0) GO TO SO . eer Se Ae Ree 

STDX = SORT(TYPE(ITYPEs20)##*2 + TYPE (TYPE ,219##2) eo te 
"CALL SRVTMCEX ee STOXeX oo ee 
50 POUISTUSA IRE T Te) =FD(1STUs ATRPT +2) + x 
Coe ee , REDUCE RESOURCES TO CONDUCT P C 
- ALOD. x/EX 


CALL USE (ITYPEsOTsDT. ALOD. $te2) 

a JACK = 2¥INTHI+IPASS 

pp RETURN eee Big treme eet tone 
-.7778) CALL ERROR ( 6HP ASS * IBLKs ITYPEs1STUs IPT +ANOs INTs 1) & RETURN . 
C RARER AEEE HEE EREREREER ENTRY POINT FOR PRETEST 8X ERR RMHRERHEAEEREE. 
oo  )~6ENTRY PTEST ey Bo eam. caw oie. ee . : : 

“> INT #1 : -_ 

___..__ ___. TBLK = IPT ee ele Bee es 
IF (IBLK eLE« O eORe IBLK (6GTe NOPC co TO TT78 | 

‘ITYPE = PCPT(IBLK) . 

IF (CITYPE eLEe 0 *¢ORe ITYPE +GTs NIAR) GO | to 7778 | 


Cc... . . JEST FOR PRETEST de ae 


we eee oe | eree eenmmne oe ‘IPASS = 0 ; swe es. | ote ee ; ae ose oer ee . = oe a 4 P : 
~PPASS = TYPE CITYPE;17) rie . Se el, ss. oe 


IF (PPASS eLE« 0-0) RETURN 
eee ¥ = RANF(@1) | seek sch Sos es ase 
7 ~ IF (xeGE ePPASS) | RETURN ee TO he gS 
STUMENT, WILL PRETEST SETUP FOR PRETEST 
‘FRASS = TYPE (I TYPE. 18) —_ 
er. _ 40 TO BO 
9160 — END | 


COMMON 


nw mretme eee 


wie rm mnteens ee 


wees oe nome om 


Nee S0k ot eee 
ee te een oe 


ly dy Oy Oe 2 
7778 


wo" see 


ee to ery _ 


9900 


ee ee, wme me 


COMMON 


ot ee es meee ow ns 


CR Ne Ne cen oe ee eee ae Ore 


. COMMONJ14/ [SEED 205 


+ asz0 
C . 


a 


oF ee aes 


ee 


“MRE ACTPT+2 


. _ PACT = OCISTU.J-1) 


a 


SUPROUTINE USDATE CISTU.IPT< I PASS) 


COMMONS 12.7 ALOADs LCONCHT ¢COHCRT eSTART EOI 
IFLG © 0 = 
oo. UPDATE STATE IF STUDENT PASSES PROCESS BLOCK 
YACT = DOC USTuUcIPT=-1) 
IFCTACT ol € 6 O oCite LACT eGT. NOIA } GO TO 7778 
IBLK=ZOC(S Tue I PT-2) c : 
IFCTBULK eLEe 9 eORe IHMLK eGTe NOPC ) GO TO 7778 
ISTATE = 0 . 
INO = Istu S&S 1PC = 184K Ss CALL GET 
TF CISTATE eF&Gs 12 GOsTO 7778 


-IFCIPASS-EQel) GO TO SO . . 
tPC 2 JBLK & GALL PUT 


ISTATE = ¢ S.INO = ISTU Ss 
‘GO TO 100 i ee 
ISTATE = 1-S INO = 371" IPC = IBLK s CALL PUT 
IFCIFLG e&Q>+ 112 GO TO 7777 
° RESEY TIME 


. : vA 
DCISTULIPT) ‘= 999999 - 
‘ ‘ - REDUCE NUMBER CF STUDENTS IN i 
_AUTA = TAPTCTACT) eANDs 00000000005077778 
IFCITA=1 «lL t+. 69 GO TO 7778 
TAPTCIACT), 2 TAPTCIACT) = ICOHORT - 
- RETURN , 
CALL ERROR ( GHUPSATEs 1SLKe IPT. IPASSo LACT» ETYPE. 1STUs 
CALL ERROR (6HEDAT Pe SSTATE©O00s0002000) ~~ 
CALL. ERROR (GHUSDATZs ITAs LACTs 1STUs IPT FELGs ISTATEW2) 
CEEEEA ENTRY POINT FC UPDATE PRETEST STUDENTS seenterceeanes 
ENTRY UPDAT2 | | 5 
IBLK = IPT 
IFLG = 11 
‘60 TO 10 
END 


‘oe 


ie, ; 
SUBROUTINE CLODCISTUsIFLG2) | 


INTEGER EDuK, STU 
COMMON/107 STAT(30) 
COMMONs 137 TPCEO) | 


/ 


+ SO hee RORRER Tm mR Care Hm ne PSO Oem er etmnm ie me o- & 


Isty eLEe 0) GO 10 7778 


‘eORe . 
SCAN FOR COMPLETION OF ACTIVITY. 


AF ctstu eGTe NSTYU 


._JFLG2 « 0° ee 

00 5S [os 1.50, 

“TPCL) = 000. 
NX®ATRPT=1 
RRRERRER MERE EEA BEE 

PO 200) YEMX»NXe3 
IX © OCTSTUev) 


START MAIN COOP 4 25tate sega eee a eae eee 
: 1 A 7 


ee ee 


00000000777777778) 


~ EDwK ECIX  eANDe 
Ix = 1xXs2e024 : 
STWK &C1X eANDe 0000090077777777B3 


; e 3 . CHECK FOR END OF ACTIVE PANT 
IF CIACT «EQe 999999) GO TO 200 se 
iF ¢tacr oLEe 9 2 ORs IACT. .0GTe. HOEA) GO. TO 7778 

IF (COCTSTUsd) eENs 499999) GO FO 290 

ITYPE =. eifeyriaer) eANDe 0vpc0000777 700000) 

7 5-63 . 


a oa =. 


e 


os nee TYPE = ItT¥FEs24l2 ; 
IF CITYPE eLEe O eORe ITYPE eGTe NIAR ) GO TO 7778 
_C. = LOAD IS CONTACT FLUS FREP TIME 
EX = TYPECITvPie2) + TYPEC HT yPEel) 
1% TYPE CITYPEs STYPT) sANDe 1900000009990000B 
N = EQwK-1 
M = STWK : a ae ee : 
IF CSTWK eL Te TIMC) M = TIME 
ec ee te teee ereee ee OO 45 Tek = MN Be pee Ges es ee ee pees 
Nw = IvwK mC ClwKe1) PNHEER) * NWEEK 
eee ee IFCNW GTe NWEEK) GO TO 7770 Pe ee eee 
xX = &x ; 
YF CIX eNEe 0) GO TO 45 
STOX = SGRTITYPECITYPE.2Q2%#2 + TYPE (I TYPE, 213##2) 
eee ee. SAL SRyITMCEx.STOxXex ) - 
ee: “—TaB” TRONw ) = TRPINW OD Feng ee ee ee 
200 CONTINUE... , 
"G0 RRR REN ER KS END OF DO LOCP He dkG FEES ERRERE RE HEELERS E RE 
xXLD = TPCOT) . 
FOCISTUsATRPT +:2) = FOCISTUs4TRPT +2) + XLO 
IF(XLD oL Te FOCISTUSATRPT + 1) 9 GO TO-7777 ae 
“> YELG2 © 7777 der: i ee 
STATC(7) = STAT(7) +} ef 
7777 | RETURN ad Say aca 


7778 CALL BRAGA (2HCLOD« ISTUsNSTUs ETYPESNIAR. TACT. Jel? Ste 
ae CALL ERRCR(4HELO2 elWikXeNweATRPT sACTET 100Ge1): & RETURN 
ees ee OO et on. ok: te ete een el ais hae a 

cn ; a 
——_ SUBROUTINE . SELELKCISTUs IELK) cn oe 
—— COMMON : 
eee “COMMONZ10/ STAT(30) -" rn res 


COMMON vias 1sFEB (20) 


ics acca ra “JFCISTU #GTe NSTU-) GO jo. agape gg RE ER EN Se sr mee ene See 
sige opel ace cena __ . CHECH FOR END TIME CF 959999 
NEATRPT=1 
eee, Geese Ete __ MEACTPT+2 . ee . 
, “"""" " SCAN FOR FIRST EMPTY CELL 
soe ee gee eae ee 20 J=EMeNe3. ee ere 
IF (DCSSTUsd) +&Q6999999) GO TO 10. ° . 
oe BO CONTINUE a - 
, c STUDENT HAs NOT COMPLETED ANY BLKS vt 
ee ie ee acne, ae ees _ ., DURING LAST. TIME PERIOD: 
Cc , OR NO ROOM IN FiLe FOR NEW PC 
Sas _.__ STATCB) = STAT(B). + 1 a 
8 ‘JECFOCISTUSATRPT+2) el Te FOC ISTUCATRET #1) ISTAECLONESTAT (10144 : 
1BLK = 88868 
ome GQ 707777 2 ade: ee eee 
to CALL RANFSET(ISEECQ(2)) 
— "ye & RANF (1) ne - 
Pane Oe . CALL [RANFGET(ISEED(2)) 
ee a ee 1 = GLOCK JUST COMPLETED | 
tz 1 


C7 wt ‘ — SELECT. NEXT BLOCK |. 
- 10700. DO 100 vy FleNTRE ; 
10720 IF(X «Lhe TRANS(1eJ)) GO TO 200. 

_to00 CONTINUE ~ S 


_GO TO 7778 

_ 200 TALK = J 
en) a » 3 
ee ae 5-64 


Cc ‘ - CHECK TO SEE IF BLOCK COMPLETED 
IFCTBLK eGTe NOLK)? GO TO 7774u 
INO = [STU 3 IPC ® IFLK S CALL GET 


ee _ 


IFq ISTATE eEQe O 2 GO 79 VW777 
. ¢ , CHECH TO SEE IF ALL. BLOCKS COMPLETED 
c OR IN PROGRESS 
. IGLK = 77777 : 
c SELECT NEXT PC IN SEQUENCE 
Boos eee - N = NSAC - 1. ae eae i 
DO 300 v= len. 
“MB IK + 1 _ 
_ JX & UX $06 UK 1) /NELKDENBLK 
; ; INO'= IsTU. s IPC = yxs CALL GET 
ISTAT = ISTATE Sa ; 
os oat ak _ IFCISTAT eNE. 1) Jituk = 6888. aug A 
‘' IFLISTAT e£Q. 1 eORe ISTAT eESe 23 GO TO 300 
poe ae BLK = ux . wok 
. IF CIBLK «GTe NELK) GO 19, 7778 ; 
eek ee GO TO 7777 : 
300 CONTINUE 
_ : STATCSS) = STATCLID + O° A 
ee c ALL BLOCKS CO: ‘PLETED 1F 18LK © 77777— 
7777 RETURN 
ee 7778 CALL ERROR (SHSELELK ISTUs TBLKGNSLK GK Too) $ RETURN’ 
. _. 10960 END : 
cede ‘se - : 
ied gle ee —_ 2 . 
_ SUBROUTINE SELACT(ISTUs TEL Kel ACTe IFLG1 4 I TYPE e Swi). 
~ COMMON os 24 ie 
owes ss" COMMONZ107 STAT(30) a . =< po 8 
. _, COMMONZIZ7 ALOAC. ICC Ga) HCOMER Sas eateO) 5 eee Lan oe 
ores ces" CommMonvi3y TPIS) 5” ee a _ 
COMMON 7147 1SEED(20) j : ha oe 
—_ DOES NOT CHECK TO. SEE: IF STUDENT Has, : 
cS ; _ . > ENGAGED IN ACTIVITY BEFORE . 


Pease A ORE ag ay ee 
IFLG1.= O00 


Cee a ee i ee) 


. ree rene memee: 0 ees wee meen me mee + 


“AMLO 
cRLD 


CALL 
Ix = 
CALL 
ICNT 
Nec f 


Semen Gee STEERS ETE ee i ea So 


' CONTI 


- 60 TO 7778 
IF cIPeLGe } 


VACT 


IP CIACT 
ITA = FAP TETACT) © 


’ 


= FOCISTUsATRPT#+2) | 


DO.20 IP = 
IPROB = PCIA(IBLK, IP) 2*#*24 
YFCUX eLEe 


= FOC ISTUSATRPT “41) _ 


RANDOMLY SELECT ya” 
RANF SET ( SSEEO(3)) 
RANF (-1)# T0065 + 1¢0 


RANFGET ( ISEED(3)) 


© PCIACIGLK.!) 
CNy + 1 . su ed we ada. Tastee te 
2,.N° 
TPROB? GO TO 15° 

NUE - . Digcaner fuaaieese. se -nas wee 
IP .GT+ NPBC) GO 70 7778 2 ee. 
eANDe OGQ000007 777777718. ey 
IACT eGTe NOIA ).GO TO 7778 


aORe 
2 PB1ACIGLK, IP) 
eLFe O eORe 


eee coe eee UM Et TTA eAND» eal 
IXMK = IX ; , 
- __ ___... ,1SCD = (1X eANDe WEEK) a 
- TYPE = ¢ ITA eANDe 00000000777 7000081 
ITYPE © ITyPEs2eal2 a 
TE CUTYPE. eLE. 0 eORe ITYPE | GT. NEAT) GO 10 7778 
5-65 : fo? 


ra 


. 2 
ss \ E, | | 
Boe og wevteind CX. ae. 1S THIS PRE SCHEDULED 1A 
7 a \ Ix =. “TYPE CLTYPE 6 ITYPT) e AND. eogcososbaogeoges: 
eee Ue = TYPE CETyPE.T) + PIER CIRCE ED ooh ote en ad 
IF CX 2&Qe 0) Go TO 2c0 ; : a: 
i ie eetemosis € | 7, fs IA OFFERED THIS TIME PE 100 é ae 
. IF CLSCD eFGs 0). GO To 100 | He 
he ipeeltta ula hoses netic = poe CHECK cap oF STUDENT ee 
IF ¢CRLD + HR eGTe AMLD) G6O.TO 300 : | 
ee eee - CHECK CAPACITY OF 1A _! es. 
_1SeS = OT 
82 ICAP = TYPECITYPE 04) Wet ees a 
"INO = ITA cANDe Ore eceeeeeen > ee ae = 
ee. . FF CTNOFICOHORT eb Ee ICAP) GO TO 7775 | a 
; STAT(15) = STATCIS) +! . 7 
. ee ee en CAPs OF IA ExCEDED - a S\.* 3 
aia “¢ Pa ei ge aiid ATTEMPT TO SCHEDULE ALTERNATIVE | 
; 45 t7TR¥ = ItrRy + 1 : : , ee bare 
ee IFCITRY eGEe ICNT) GOTO 50 ae 
imps IR + 1 
.. ee "TF CIP eGTe lenT+1) IP = 20 a cae tial 
se eg cok es ee ee en oe nee ees oo Sig Sees 
Cc a ee : RECORD DISAPPOINTMENT’ ~~ 
septs. _ BO. .STATC1) = STATOL) -+ 1 a hes sees 
ITYPE = B&84e8 7 mg OMe ge a 
ee ee id 60 TOTTI oe a 
C - _ SCAN FUTURE TIME PERIODS FOR IA OFFERR=1 
100 «TwK = WEEK TT ee ns: Hn T Cee en Ne yA eee: 
; NNX = oT +1 
Reet ee NMxX =. NNX + 1SEED(BI=1 Pee eas ie : 
TS CNM eGTe NYEEK) Wi = NWEEK : 
eT eee ; 0 GO JENNY NM oe ge Gee 
me ete ee aes oe 3 ee S Vbecsa a, 
. ae een  ESCD = IxMK sANDe Tuk” i ae 
ae a “IF CISCD eEGe 0) GO TO 69. Se ee ee et ee 
eT Pen ea IsvwkK = ¥ ; tes 
sone eee "TE CUSWK eLEe 0 “OR. I sw “eGTe NwKS} GO TO' 7776 3 
; Cc - (CHECK LOAD DURING WEEK J 
TO TF OTP(U) + HR @GEe ANLD) GO To 60 a Gh 
ee ae _GO_TO, 32. 
ae seal of ee, “LOAD ON STUe sr “MAX. FOR. TIME, PERIO0. 
eae tie teat, ee CONTINUE _ ou . . 
STAT(H3) = STATCIS) 4.1 ea rn ar ae 


GO TO 45° ‘ : 7 4 

" CoRRRRRE MRA RHRE RARER RENE EE EERE RE . . CHECK Capacity. oF RESOURCES ' 
INOI VIDUAL STUDY © ae 

ts Ww OFFERED THIS THEME: PERIOD 


200. IF CIscy CEOs: 0? GO TO 45. 


oe oe at 0 rene 


Ce ee eT ee tee eet ooeney meee 


IF (CRLO + HR: eGTe ANLOD Go TO 45 ey ee 
ee eae Ask 3-OT . 4 
Fe Iswk *Lee ie) 2OR> } ‘swe GT. Nwks) Go. To 7778 Net “ie 3 
eee ne <a - : CHECK. AVAlLe OF: RESOURCES on 
‘SteTOP = ¥SwK + TYPE (I TyPES3) -1-5 oe 
, CALC USEC I TYPE, Tswits ISTCP ¢, 106008 ae 
aaa 7775, _CONTANUE © : . = 
oe te oe ee RESOURCES, NOT AVAILAULE iF ItyPE EO. BE. 
7777 -RETURN | ; ee ee 


i eo ers 


‘7778. CALL ERROR ¢ 6HSEL ACT. sisTus 1ELK FACT, IPeloXel) = = 
"OF. CALL. CRROR (GtigltAc2 eT TYPE MIAR, LowN, PPROH, 1X, 15CD. 1) 


11840 - ENC 


s ncigind 
, ; = a c . . : 7 i © Su - * . 5-66 | | 


a “SUBROUTINE SCHEOCISTUs TACT e IGLKeIT Ee TSWK) 


COMMONZIOZ STATIZO) 
COMMON? 127 AL OAD, ICCHCRT COHORTS TAR (29) - 


c STORE CLOCK AND ACTIviIty Ny*bERS 
"e eeeeben ae - 12681 IF CISTU eGTs NSTU). GO TO 7778 


12621 IFCIACT oGTe NOTA) GO 70 7778 
IFCIGLK eGTe mCEC) GO TO 7778 er ae 


eee es : INO = Istu $ IPC = 10LK _% CALL GET 
Pare - PFCISTATE ehte 0) GO TO 7778 
ee ee NSATRPT~1 
M=ACTPT+2 i 


ie i . | 20 25 UaM.Ne3 
LF (D(C 1STUeJ) 0200599999) GO TO 10 
20 CONTINUE 
12760 GO 10 7778 
10 DCISTUsU-2)=1ALK 
DtlSTUse UK) FTACT 
soem bwK & TYPE CI TYPE «2) ; 
Prete, eat IF CluK eLEe 0 eCRe ISVK eLEe 0) GO. TO TW7S 
. LOAD STARTING wEEXK 


2 


Cc 
aoe, BEN F (SEM@1 86, EEKe Sue 
IFCIBGN eLTe TIE) GO TO 7778 
eee 4s O0STUsY) = IBGNAZ##24 * 

Cc , ot 1.0AD ENDING wEEK 
oe, OFUNSTUA? # Dt ISTUSd) + Vue ake . 
IF CIGGN eGTe TIME? GO TO SS ; 
a ease a . . CHECK SERVICE TIME 
a. 7 "HMR = TYPECITYPE.2) + THEE EH EEY 
ears SVHR = HR 
“Ix 8 SUPE CITYPEs ITYPT) SAND. 190000000C00000008 
a IF (hy eNE® 9) GO TO SO 
lige aaa ee eee —""""" RANDOM SERVICE TIME - 

wmamrrnmer =" Sy = SORTITYPECITYPEs20)%#2 + TYPECITYPE.21)##2) 
He ae vas ee CALL SRYVTM(EXsSTOXeMR) _— . 

qe" "UPDATE STUDENT LOAD - 
feathers ae, NO OF HRs PER wEEK ; 

So _FOcIstusATRPT +2) SFOc Stuy ATRPT +2) + HR ~~ 
iene c SET STATE TO ¢2) 
. PUT UTETETTSTTTTCTTETIT TTT SST Te TT Tree AJUST RE SOURCE LOADS oreery 
S55 STA = FAPTCLACT) ef£ND0e COCOCd00CCO0/77779 ee 

— ISTATE = 2/6 INO = Ist S$ IPC © IBLK & CALL PuT 

Cc CHECK FOR PRE SCED 1A 


Ix =" TYPECI TYPE. TYPT? eANDe 200000000000C0004 
coe IF( Ix eNEe 0) GO TO 129 
wees Os FECT SwK eLEe C. eORe I5sK sGTe NwKS) GO TO 7778 
UPDATE RESOURCE FILE 


+ ALoo'® HRYSVHR 
Sic teeest catia sey aeccwas go... STOP = [Suk + IwK = 1 See ee 


CALL USECITYPEs 1Szike STOP. “ALODe 1416) 
pone ¢ : UPDATE NO. sTUD IN TA 
x “1200 «STA STA + TCOHORT 
oo TR CETA eGTe 90000000000077775) GO TO 777& 
PAPTCIACT) = JAPTCSACT) + COHORT 
Cae Cee po, 4 CHECK LOAD ON STUDENT 
TT ETO PE CFD CL STUSATRPTHZ) obte FOCESTUSATRPT +1 99 6 TO 
IGLK = 7777 
A a ze t14)-.¢4 1 
STATC14) STael eg ** 


W771 


77VIT RETURN 


. TTITB CALL ERKOR(SHSTHED a FSTUe TACT A PELNeNSTUs ETAGIGGNe DD 
eae een en CALL ERROR (SHS CHE? . TSTATESOeGeO1OeO0!d 
™ CALL CHROR(SHSCHU2 ¢ Dwkesliwke [TYPEe JeMeNe 1) & RETURN 
es 13120) 6END . i ee th ; 
{of a 
—_ — = + c Pe . ie , 
_ ~  eyBROUTINE USE¢ ITyPE.ISTART. 1STOP.ALCD. IFUG, ICALL) 
cee eree. . . COMMON L os : Be einen ae! Be 


COMMONS 107 STATI30) ; 
COMMONS IZ7 FLOADs ICCHORTsCONERT eSTHAR(2O0) 
-ANO = ie dae 
eee UF OCANO eh Te 100, 40 TO 7778 on et eee = 
COHORT = iceeoat 
FAC =ALODZCCHKGRT/sANO 


TEineieatntnmmen ae et } sa ageseeee ae SH aueens cecen tenn Ree 
ee i... 00 300 |! = ISTART, IsTOP 
IPER = 1 = (che LisnNwkSdaNYKS 
DOC 300 J =5.16 
sromeres es oes Ay gs HOURSCIPER« J) ~ TYPECE TYPE « J) *FAC a 
IF (Ax sGEe a09) GO TO 199 
wee ee Be O88 . wi teow Gusvahe. qleseiueeecsabisee S @ <a 
IRS = Bf828S88 
mortem STATCICALL) © STATCICALL) + 2 eo) oe 
STAT(J412) = STAT(UtI2) + | . 
i “ "" 190 IFQIFLG s£a6 Cd GO TO 300 ie : 
ees 2 MOURSLIPERSID © AR kk eke RK See ohm waded 


“300 CONTINUE 

oes ; ITyPE = IRS 
“p77 RETURN, a gy alee ee ie 
7778 «(CALL ERROR ( SHUSE eANOs 1 TYPE * LFLGs ICALL e ALOD, ISTART <1) 3 RETYR. 


“END 


m= em ee 
Oe oe cores eee nee e anette sant owe : we mee me me entree = ne me nee mee mE et eee aie 8 Oe Stem ae: Between sen, mene seem ser ws 


SUBROUTINE AERIVERRATE SS PESEy 


ew we ene Os eee . a se er eee ee ee Ss 


COMMON . pe 
pee COMMONs10/ STATC3C) Rie dick wats eg 
" COMMON, 127 ALOAD, ICOHORT ,COMORT «STARL20) he 
COMMONS IS7 CUT C200). disse - a F _ ar 
NOIN = RATE ~~ a ee oh 
60 IF (NS TUFNOIN oGTe MysR ) NOIN = “MxsR eNSTU_ Pee ae eee : 
“M ® NSTU + 1° . ; = 
eos ae cube Nstu. = Nstu + NOIN a 2 7 . 


“"NsAR & NSTR & NSTU 

N © ATRPT —1 
“po “105 T= MaNSTU ~ 
axes 00 100 JF1,N ; 
7700 Detlev) = 999999 Re eS Pg ee ae : ‘s 
“FOC. ATRPT+I) = ALOAD , 
oo" FOCTSATRPT4+2) = O00 ; i ae bo oe s 
Se Nee oe cere cece, DOT AATRPT+S) STE . ees I eee ee eee 7 _ oe 
oe STAT(4) = STAT(S) + ICOHORT 

103 O¢!.ATRPT) ~ICOHORT | 


ee er . . . + -- « 


RETURN & END 


eo Re ccm Oe ee oe ee EES ES ore -eEREEER NOS ee SO Oe He oe ee arr 


eee Te 
c ; : a ‘ 
epee cae SUBROUTINE REMOVE (1STU.sISTOP) - be ee 
‘COMMON : 
(oebeee —eee COMMOH7107 STAT(30) —- - i 
COMMON/127 ALOADs COHORT COHORT +STAR(20} sh 
; 5-68 3 
; td 
* ‘ q 


Y 


COMMONS IS7 OUTCZ200) : 

: < TABULATE TOTAL TIRE IN SYSTEM 
It = DelsTuscaATRPT+3) 
1D = TIME <Iy 

IF( ID elLEe 9 eORe 1D «Gt+190 ) GO TO 7778 
Tim = 10 
CALL CCLCT( TIM, 27) 
CALL CCLUTOTIe BD ; 
eee ee, TR ENY ele 78) GO TO 10 De a es 
OuT¢lO) = OuT CIO) + COHORT 
OUT(200) = OUT¢200) + ICOHORT 
10) «STAT(S) = STAT(SE) + TCOHORS . 
c , ELIMINATE STUDENT ENTRY IN O FILE 
“i 90 20 Y= 1.N0C 
20 DeCESTUey) = DNENSTUS. 
OO 50 JY = 1ensac 
e INO = NSTU = % [PC = JY & CALL GET 
= “. ¥NO = igstu & IPC = y & CALL PUT 
ISTATE = 0 . « 
ais aa INO = NSTU & [PC = y & CALL PUT 
ee 50 CONTINUE 
Nstu = NsTu = J 

NsAR =ENSTRENG TY 

RETURN : 
7778 CALL ERROR GHREMOYE e1STUsI Ts TIME SIO. G9 e002) | 
* RETURN $ END 

e Z 


were tee . . . 7 


SUBROUTINE OyMP eb). 2,t3e14e1S, 16) 


oom 


Tee COMMON 
; COMMONs13,~ ITP(SO) 
a ‘INTEGER ED“. STR 
WRITE(61.100C) Tle «SEM 
“18469 {FCI1 «EGe 1) GO TO 19 
15479 PRINT 8000 
00 100 1s 1,.NSTU 
Ker. 
90 9U J #142143 
_ UTP(K) = Dt Tey) 


nen mete ee ee 


en 


EBRD = OCT UHT) ” 
: tx = O¢1 eJt2) : 
Te EOWK =(1xX eANDe 00000000777777775) = 
a Ix = Ixs2*2a . 
a STWK =(1X eANDe 00000000777777778) > 


I7PcK+23 = sTwk 
}TP(K43) = EDwi< 
Ke K+ 4 
90) «CONTINUE 
- TAxy =FO (1, ATRPT+i) 
“" JAY =FOCL.ATRPT+2) 
WRITE (C61 AGI OIE CETPC ID JEL 26) TAXA TAY 
ise “conpimcc ae ca roe, SES Sees 
10 IFCI2 ef&Os 31) GO TO 20 
1£569 PRINT &oc2 
po 150 1 = 1.NSTU 


ae eg ey 20's oe to 


emma ree ne ee ae tee ee on 


comme VE (TH€1730) #30 © 0EQe 1)” WRITE( 616 19019126 (3. U=1,50) 
seeks a _ INO F 1 ee en SOE er ee eC ee 
DO 145 y =1.50 
-IPE sz J 
’ CALL. GET ; 5-69 ‘ 
Q@ 


- 
| y 
w ° / 
~ —_ eh eaetne = . aa: _ cans oa: wee &- we ee. Z.. . - 
i ' ia Vi , 
ee 145° TPC) = ISTATE . oe ak ee = 
WEITECSI.1001) eciTP¢y) eJ™1.50) 
ee 150 CONTIRYE Sead et eee oe ; 
20) «6«IF C13 eLGe 319 GO TO 30 ; 
125190) «PRINT 3001 / ; 
i ra - _po 175 1 =71,NBLK i 7 ea 
WS PRITECE LS FOIBD Foo CPCTACI oJ) eJEl eNPLC). 
ae ee DO 176 LHL MTA “ee 
176 WRITE (S16 1208) (TYPEL DoJ )6 JEL MTACD 
nome" BQ OTF 1G é2Qe 1) GO TO 40 ee eee 7G 
WRITE (G11 NG29¢ fy PCPTCIDs berenoPC) 
Tom DO Sto 1 fle NOIA =" ee oa = 
— Ix = TAPT (1) sesten 
Tm mes es = NG CLAPTOCT) e@ANDe OOCOSCOLSO0N7777B) 
oe AE TART EN DY CANIS OD cacoTT777777B8 yO 
1A = TAs2R¥12 -_ 
: WRITE (61,1009) Text A NO elAPt¢t) 
oemensrmrer== =" 600 CONTINUE . = 
. 40 IFCIS «&Qe 13 GO TO SO 
~~ 50° OIF O16 VECe 1-3 GO TO 60 eae 
” WRITE(61¢1CG06) 
meme eee WRITE (6102507) DTe (HOURS(OTeJPest5e1Gy -? 
60 CONTINUE . 
meee" "1000 FCRMATOCINT « 20xK0 * SYSTEM OUNP AT #5310 77) 
1001 FORMAT CIHOs1 Ox, 1100S%.S512) 
oe" 1902 FOR AT (2ox.lallassy) 
1004 FOR* HATCLEX« 156 2x.O16s 130.11003x%2016) 
= 1005 FOR“AT (Ix, 1cE1202) ~ ; 7 
1006 FORMAT(20xe * RESOURSE STATUS * ) 
mae 1007 . FORMAT ( 1Ho.110,12F 1g02) Ee 
1008 FCARYATCIHO.E CCF Gee? 
eo ee 1O10 FORM ATC IHQ. 15,2214) - Ne ee 
1013) FORMATCIH 111092x 6502076 10x+S020)) » 
Se ee B000 FORMAT ¢* STUDENT FILE *) a aia ea ees - 
Bo0Ol FORMAT(# PCIA LAPT PCPT * ) 
Me “FT Bo002 - FORMAT(C# STATE FILE*) se 
et i 35750 RETURN sENO 
wee Bt as ae we .. ee ress sos danke de 
tte Oe et side a Be fait ass in ss Seeded aa cece sees toms fp we ele SO 
SUBROUTINE SRVTM(EXsSTOXex) 
COMMON 7147 TSEED( 20) _. ae a ae 
AMIN 2 EX. -3.0#STOX nae 
c MIN SERe TIME ASSUMED TO BE 5 MIN OR ¢09833 HRS’ 
Terme me YR CAMIN: eL Te 60833323) AMIN = ¢0833333 zs 
; a. AMAx = Ex + 3ea%s/Dx : 
ec i Scie e600 PRP Cod ec Sas ied i neat tala tints aitatdeee Se 
oe CALL -RANF SIT ¢ ISEEO(4)) 
eee pO & 1 = 14612 _ es ~ 
es R = RANF(~-1) 
SEEPS low eeu aR antced’: ah sites ee te cha! 
CALL RANFGET¢ ISFED(4)) : 
eee" Fe STOKE CSUM—GeOD + EX mere = 
- FF CXeGTe AMA? x = AMAY 
a ea " “YFox eb Te AMIN) x = AMIN. a 7 
ba ee RETURN & ENO ; 
meee 34 : ee rae oe = 
Teme nee" IDENT XDATA. a 
3 BLOCK . ; 
eae ~ COMMON DATAC 20069) sh oMexxxeLZZelaIeIDATA 
ae 2 5-70 © is 
¢ 


_. ENTRY - ~ GET > oo. _. 
SET U6bUP 4 
Sele antepat, ee As, . GRETNs 1 ha, geese ee eto 
« situ GREIN.2 
pene ee eee RTS GACOR pig steeped Sao 
—& LByTeAn.E2,CL = DATALI,2 LOAD By7E FROM ARRAY 
eee ee - STA IDATA a ne eee eee 
..GRETN ENI | eH, 
O ccacele: ponniac eee _ Bee ; SG Iee eee hate Be toa es ae 
'  ghy GET 
_ ENTRY PuT oe. . : 
Put UBJP ¥® 
S . slu- PRETN, 1 : oe - 
ell PREITN.2 
Rtv GADDR 
ape OA ae SRT Rate it. Bins 
ae _ - SBYTeAC.E2 DATAS1, a _ §TORE BYTE IN ARRAY 
“PRETN ENE ¥%e] 
; EN! #2 
et Oe pur Baas eee eke. ee oye nee 
- GADOR = SLJ. ee _ 
— : LOA: K. = aaa m haat aaaaiaas tae ae ee eee ee sai i 
INA a 
banat. ay, Gam Van Sie ee eee, eee Gt ; 
es ... Add. J \ , 
_ INA -1 : : 
eer... 2 ck need ce Me asta is, abides stewnaete 
ADD ..... J : 
INA “1. 4} 
a  *ENQ oO + NO ‘ ras 
aa Dv! 2024 | CELLS PER 46 BITS 
RXT AB! eo 
a . RxtT Q,A ar: te > seeet ane als we: - 
Mut 202 BITS. PER CELL 
a. ENG 46 : . 
- ROP e- | QeAeA a tae 
Rxt A,B2 . , : ; oP cee 4 
a anew a y ane ee pedi die ye Bacecate pe tae 
DEC 1 
nt Ses » <0 1 SA A aa ea 
END : 
~ @ bide gees wir catatg: Mieeetuere ie. acacia eo. a 7 
c 
ar SUBROUTINE ERROR (1 4A+3.C.0,EeF.1STOP: ) . 
COMMON/CTRL, WEEKsDAysSEM .TIME.DT. ICASE, eo uecse ie: NwEEK 
“CENTEGE2 WEEK. DAY «SEM +TIME, OT ICASE, ETIME .STIME 
ICNT = ICNT + 1 


1 havent asemapar Joa, - P ne a ores 


“WRITE (61, 10529, 


1002 FORMAT ¢* ERROR 


TIME,!, ReBeleDd, EF 
#1190-A6,6110.) 


nat en ete ee om ee pe eee 


WRITE C61410Ci2-e TIMES 16A,B.C.DeEeF 

4001 FORMAT ¢( * ERROR *#,:? 10.A6,6F 1502} ee ere ee en ee 

IF CICNT el Te 106). RETURN : : .4 

= 3 ‘WRITE(61, 1000) + ae 

“T0000 - PORMATI1OX. ffl li ® ‘SIMULATION TERMINATED DYE TO. ERROR * v2 

oo GALL DUMPLO+0608D8080), ad re 
~~ STOP ssa 

ee..." Se ee Ss ee eS, eats 


-$+71 


we a ee ee te cae 


Stiesa tase: * Szedann feseses | | 
“idem lmons ts iu, @ ONION ; ; 
eee CcuNONZIBG-RoAe Cao. i. ae Hatice a 3 _ 
Saeco ee, wale COMMON, 11/. ALCED, ICOHOR COHORT] | 
- COMMON, 12, LOAD Ifo), . AMINGIS9),. AMAx¢ 159),5T7LO¢ 159) 
cone ee eee, COMMON 7137 FINISCIS0)¢ ITEMPC10) » ASTUSI50) eLDzCot lsc) 
: COMYON/14/ TEE (15020) 6 TRACE : - 
COMMON slEs [SEED (ZO) eSTARC20) a ee 5. ees 


COMMONZ IES CuTC205) 
COMMON? 17, CrsteZo), COST 


7 COMMONS 1E7 SELTPOIOO)« SELIA(30012) 
f LEREEFLRERTELEEE EAE REP EEHEEEEENEREERE 
et Pyrrrry METEP HEREREREEEREEE REE 
” d Cc : HEALER AKHHSIASERAHERHAS SESSA PEEREE EES 
weer ee Og sihaeol ; 
rere REwIND tc ; 
- “Ee ° TAPE 9 USED 10 STORE HOURS 
a ee THE Jo INPUT TAPE TO REPORT GENERATOR “- 
= CALL TITLE» Hoe 
nn READ IN. TAPE HEADER INFORVATION Z 
ee — READ( 15) ICT1, 1CT2,STIME,E] THE No TU, ICASE MyEEK, ALOAD, 1 COrcRy 
pe ne eee re, ath READ( IC) sted «STAR ; 7 
: READ (303 O,STATE PCIA, TAP YT  PCPre TYPE HOURS... TRANS 
' READ (10) MXORsMxXDCeNSTUSNOC «  ACTPTsATRET 


« MXSReMKECANSAR NSAC 


’ 
eee ices Stee « MPBR.KPAC.NELK 4NPEC- . 
3 . @ “7 MAPT a NOIA « HPC « NOPC . 
rr = " MIAR, MIACNIAR NIAG, ITyPT 
a ra “ “" 4 MyKSe MARS . Nwks , NHRS 
Soo BH . “y MTRAGRTRO.NTRReNTRE a 
: READ¢ 310 »)° STIME, ETIME. OF. NSTUs ICASE sNyEEK 
peepee eee a .CALL INPUT jut a pte tenets om Mies eee, eke Soe, a 
TCOST = 0¢9 : ~ a a * 
COHORT = ICCHORe “ 4 ©. ate 


DO B 1 B14!PSR 
00 8 J #1 ,Kegc 
B SELIACIseJ) & Coo 


peasant eeae __10 ., READ ¢to) OT, TIME.SEM, NSTU+Ds STAT .OUT+HOURS Sha mys: 
IF CEOF «10 S01 ; a 
oe 1S CALL: yas. : ° * gt ale 
: WRITE(9) HOURS. TIMEs SEM «OT as me ae 
ee _ °60 70 30. ; aa ; 
7 c Reateseeaeeeneneee ENO OF PROGRAM RUN ##8ae ead ee: 
—-—--—--— —— 500 WRITES6161¢001) TIME. ios. te eae wu = a 
CALL REPORT! a 
ete ee sane ENOF ILE 9 ‘ “Ge Gsinsd ; : 
REWIND 9.2 _s 4 he Ee ‘ 
a CALL REPORT2Z - 2 ; 


CEA eta REwIND 16 Panne 
‘Sirens ER TOOT TORT On” uate Saude bane ee catalase we 
“g70P . a 


oa Pree e trie rT rr etre rey’ ERROR ou'4Pe eansaseenaunenstenecees 


7 ol: 9B CALL ERROR (GHMAIN e ISTUSNSTUs ICeNDLI 000) | 
coum aed eee STOP * 

"$900 FORMAT(C 10x. # SIMULATION ‘TIME Is # 1918). 

a _3100 FORMAT IM1e1CK.s ENO OF SIMULATION RUN AT # S110) 

——"fa02 FORMATCANI.® TOTAL COST OF ALL RESOUNCES S FIR 

eer “END “Se 92. ‘ ee 

c Sas fs A : 

oe, : 


+ 


ea oa on fe eocite TAB . 


Cm" REAL LOAD WLDZ00 0 


tus, we 1 5 ae Sere 


SUBROUTINE INPUT 
__ COMMON 


eee ee a ee come ee sete 


COMMON, 14, TEMP (15,20), IPAGE 
COMMONYI77 COST(ZO}*e TCOST 
~ wRITE(61, 1009) 

MHRSX = MHRS 41 
somes ome" pO 215 1 = 1, MHRSx so, 7 ORE 

READ(60.1010) 114¢12e13et4— INDEX» HRS + ANO 

eee EEO Sed Seas : aa ee ee 
(190 WRITE(61,1011) “Thel2e13eT4s. INDEX. HRS + ANO 

“" -p0 206 IbK = 1,NyuKs. -* 
200 TEMP( IT WK,INDEx) = HRS — * ANO 
-215 CONTINUE : 
co eee 900 WRITE (61.1008) eee ecg, aes teenies ae cues ae 


00 400 I =1eMHRSx. 
READ GoelGiops2.12. 13,14, INDEX COst¢ INDEX? © 


omar em S87 TEC EOP GO) 4100400 


406 WRITELOD TOLLE, 12, 13,54 INDEX. Cost ¢ INDEX} 
"alo CONTINUE - ° 
1oc8 FORMAT ( IH1. SSxe# Cost PER UNIT CF RESOURCE. * 7 
“1009 FORMAT C IH} « 10X%e #TYPE CF RESOURCES ¢27K68F ILE POSITIONKe 10. 


eam oe MUR eH! TE ote em 


1 . #HOURS CONTRIEUTED#.2x a . TOTAL UNITS #7 
momen "2 BOXe #PER UNIT OF #e5xX0 " #OF -RESCURCES#/ 
‘ 3 GBOXe *#RESCURCE #77) a2 ., wh ehh 
maser "1 OIO FCRMATIGAB Sy 1106271500) a ee cn es 


2032 FORMAT( IHD. Bx. GAB, 12x18, 12x62 1562) 
sen BON” “FORMATCIHID 
" . RETURN: = © -END 


[one wa wees COMMON; 07 STAT (30) os ad as aie ia ae « 


- COMMON7317 ALOADe ICOHORT eCOHORT 


aoe nee er eos MONZI2/ LOADC ISO). AMING 25026 ‘AMAX(150) 6STLD(230? 


COMMON 7137 FINIS(1S0)e STEMP(1G) « ASTUCI50) eL0Z006 150) 
TTT" “OC OMMONZ 147 TENP( 15020) « IPAGE : 
COMMON 18, SELTP¢ to). SELIA(S 9522) | 


INTEGER EOwK,STwK 9 


Seems ae tei neem meme oom ‘'7 = TIME Sw egt Sheed ween at cee te eee ee ee eee < 
_ IF CIT eLEelSo). GO TO 25 —_ 
Torn seme "CALL ERROR (6H TAB) el Ta TIME eSTIME.OT+0+0) a 
GO yO. “T1777 : 


Ee os ee te Om mm mt mere ae emt ts oe ee oe mm ee em tee ee 


2s. CNT =°O0ed 
AMINGI7)  =999999999.9 . 
“omer ee AMAXCET) = -99999999.9 Fe 
TOT = OO ~ ; : 
iF Nery. cE Os 0? AMINGIT) = co 


Teens me 8 eee jeemem ooo mews 


Miseettadiaetlag oe : . 
; po So. 181, »NSTU- ; 
: ~~ ALOAD BFO(I sATRPT#2) a ‘ _ 
an ~ ean oS “TAB NuMBER oF STUDENTS with ze : 


. AVE (ALOAD: LE. 095) CNT = CNT + lec 
 7OT © TAT + ALOAD - < : 
# |F CALOATD eLTe AMAENGHT TT). AMINGIT®. s ALOAD ‘ 
TF (CALOAD .Grs Perlahs Med 1 AMAxg ITs © ALCAD 
¢ } oe iss ‘LOADS By NUMBER or HOURS 
: ILD = ALOAD + leo = 


5-73 


IFCILD eGT» 9 eANDs ILD eLts 159) GO TO 40 
WRITE (6101503) teNSTUs ALOAD ° 
GO TO Se 


a wen e cee: 


“40 ‘STLDOCILOD) = sTLOLILD) + Loo 


So CONTINGE 


LDZ00( TIMED 
_Ixely¥ 


& 


_ LOAD IX) 


INISC¢ET) 


= ENT COHORT 


: STORE AVERAGE LOAD 
= Tots ANO ; 

’ STORE NyMBER OF COMPLEY IONS 
= STAT(S} . . ; : 
TABse NO. OF STUDENTS IN SYSTEM 


ASTUCIT) = MSTU #* COHORT 


ACCUSLATE INSTRUCTIONAL ALTERNATIVE STAT.« 


. MX=ACTPT+2 : Tie ey 
Sem ATRP TA ‘ Ae ie ah Pa 7 
DO 300 ISTU =1.6NSTYU . : 


epee: ta 06 399) Jstx.Nx,3 


_— ‘Ty = O¢lstury) 
ce eee — “FOwK e#¢Ix eANDe Q00000007777777733 


_Ix = Ixs2*#*24 . 
STUK 2¢9X eANDe 00000260777777778). - 


IF (STUK. 
ACT = O¢ 


oNE. TIME )» GO TO 3co 
1STUyJ=—1) 


IBLK = DCISTu,J~2) 


ee a ee Pes 


ah A oe a ee mee ence 


275 


e300 
co 


IF (LACT 
IFC TACT 


“ITYPE =- 


ITySE = 


TE CTT YPE 


eEGe 999999) GO TO 300 8 . 
eLEe C eORe LACT eGte NOTA) GO TO 7778 
(PAGETCTACT) eANDe 060900007777C0008) . 
ITYPE 28 FIZ a , . 
j olEe © eRe ITyPE eGre NIAR ) GO TO 7778 

; ACCUMULATE TA By TYPE; 


— Seri en vere e SELTP¢ ItyPE) + 100 


—ACCUMUATE By. PC TyPE~ 


“ITyPE = PEPT(IBUK) 


IF CITYPE 
SEL TP (Ty 


ICNT = Pe 
00 275 
AT = P 
IF CIAT 
CONTINUE 
WRITE S63 


GO TO 300 
280 SELIACIBLKsIA, 
CONTINUE 


IF CLINE 
TF CIT «EQ. 1) 
CALL PACE ¢( IPAGK) 
, WRITE(61,. 3000) 
. WRITE) 
BREIEIS! 


eLE. O oO ITYPE <GTeNOPC) GO TO 7778 
YPE }~2 SELTP( ITyPE).+ leo 


- STORE JA BY PC 
CIA, IBLK, oo 
TA = 142CN 
CIACTBLK, TA+2) sANDe 00000000777777778 
eEQe TACT) GO TO 260. ~ 


re a ' see 


eiceay I VTACTSTBLKs ISTU 


2 ® SELIACIBLK,IA ) + 100 
PLOT OI SAPPOINTHENTS COUNTERS 


‘E78S5)#aS eNE« 0) GO.TO 200 
IPAGE = } 


-(Li 


« 3. 
ee cy 


9 1002)° ITelTe(JeJt1030)— 
01001) TIME, ste ¢STATC I). T= 1 130), * S 


LINE = LINE + 1 


RETURN 
FORMAT CI 
FORMAT CI! 


- FORMATO) 


FORMAT (# 


” FORMAT? 


Ho.SSx~.. #DATA COUNTERS 774 eee 
M 4216,# 1 # 6 30F4eq) 
H . 216,3914 ys) ; , 
STUDENT ‘HAS LOAD Gee 150 HRS * 2330ceFlge2). 
*# ERROR sly, TAD TA NOr FOUND IN PCIA FILE # 413g 


ee ee ee SO ec rey me 


o 


oes ee + em ten eee a ar os a a i a es a ee eee er ee nd 


_7778 CALL ERROR ( AHTAB. e ESTUeNSTUs ITYPEe NI ARs LACTs Jedd 


CALL ERROR (AHTAD — lw eNweATRPT eACTPT eOeOe)) % RETURN 
eee IIT RETURNS END cee te 
ee n f ; 
or c : é& 
—  -SUBROUTINE REPORTI ee 
COMMON — = 

oe COMMON/ 107 STAT(39) . = ie ° 
COMMONS117 ALOAD, ICCHCRT.C7HORT ; 

women meee" “COMMONZI27 LOADC1SO)< AS 1(150)¢ AMAX6150) eSTLOC 150) 
“COMMON 7137 FINIS(ISC}. ITE4P¢19) « ASTUCI5SQ) «LOZ00¢ 159) 


COMMON/I4G7 TEMP CISe20)eI PAGE | 
COMMONZ167 CUT(2U0) 


ToT me COMMONSIG? SELTPC ICO}. SELIA(S0, 12) OPEL 
ie REAL LOAD ,LOzCO~... a 
eer sage TLD = 30800 Se meee mentee Page meee cee eee 
‘. - OELTA #72460 
moe eee GALL PAGE: IPACE ) ee 


WRITE(61¢109}) ; 
© CALL GRAPH(.156,LOAD,1H#,.3H «TLD 5g “0°0 “. DELTA) 7. 


ee ee een roy 


CALL PAGE( IPAGE 1 = : 
nn nemo IRETE (61, 1002) Fs eaten Sane nenememecsie it de se damnum copes sam 
; CALL GRAPH(1S0cAMING 1H#e IH *TLO ¢ 000 + DELTA > 
Tee me ers so CALL PAGE”( IPAGE ) ia sa 
, WRITE C61e3G03) a : hae, 
vom oe mmmmnrens CALL GRAPHIC 1SOcAMAKctHeeIH eTLO 2 O00 « DELTA) ~™. 
CALL PAGE( IPAGE ) _s bee FY os 
mone einem RT TE (61 1008) oo a sbaiese maabiee ed 688 ti 
7 ‘ANSTU ©, MxDOR#1ICCHORT : Bye Sa 
ae ee DELTA = MXDR # ICCHORT 7 30° 4 RU te 
CALL GRAF 159 FINISS 1He 4 1H ‘ ANSTULO*04 DELTA) 


a ” C@LL PAGE( IPAGF -y 
ee ee, WRITE CEN 1905) 


i. CALL SRAPHO 180 ASTUs IHX 1H ‘SaNsTG+0esDEL TAI” © 


ews cere me meee ce scene oe CALL PAGE (IFAGE)- oe we Ste Se a, oe wee ne wees 


WRITEC61019112 

yn see ou. CALL. GRAPH < 15010200, 1Hx. 1H A ANSTUS OsosDELTAD ee 

~ Natt PAGE ( IPAGE) 
WRITE 61,1012) 


oie ee GRAPH (150 9STLOs IHX, 1H! © Anstus6+6. DELTA? 


EE. 6 ee me oe oom vememe e+ oeey 


ane eee _, SUMS= 990 a . eka eet 2 oe 
TOT = 000 
OE em oP am, Re em oF CALL PAGE ( IPAGE) + © omer . a a ae Pe ro 5c at . we 
—_— wRITE (61.1006) . 7 
tential. WRPTECCTs TOOK? ee a ORE AUS NE EN ET, OME ee? 
‘00 200 121,296 ; cae . 
saat PROB = OuT(1}70UT(200) ; a 
sail a WRITE(61.2C09) 1. OUT(I) « PROB. a 
me _. SUM = SUM + FROE . 
momen TE CSUM eGEe 1600) GO TO 220 ; ‘ 
20¢ CONTINUE ? . 
TTT "220 WRITE(G$101010) OUTEZ00) © SUM Uy 
. SUM # O00 © ® Nx = 1, | : 
ela “90 223 Jy =1eNx - a 
es, 7 As eS 4 a 
some Beg sue Sum sAgeOT EO ees Pe roe ee Sere 
wot ne, AMEAN = SUM/CUT (200) 


WRITE(61¢1018) AMEAN. 
CALL PAGF( IPAGE) 
WRITE(61.1012) 5-75 


ae: 
2: 


4 


“WRITE (61.1013) 
TOT = Oro . 
DO 250 1 =44150 
"259 «TOT = TOT + sTLOQI? 
gu = oso 
‘00 275 it =1,150 
PROB’ ? STLOCLI TOT 
SUM. = -SUM + PROS 
oIxx.= b- ; 
WRITE (G2 eIGOO) XK « STLDOGIDS 
_ + SEO SUM «GEe 1e903 GC TO 280 
275. CONTINUE _ 
280 wRITE(SI, 1019) TOT. SUM 
SUM = 000 " & Nx tI 
DO 283 J =ienx — 
“Ase J . — 
283 SUM = SUM + ASESTLOUJ) ; . ee 
AMEAN = SUM /TCT. fe 


wen me ee 


- ete tee ee me we oe 


PROS 


vieceee ee eee eee, WRITE (610195178). AMEAN 
c - WRITE SELECTION 1eAc REPORT | 

“WRITE (61e1C14)., i 

DO 390 1 = Y,NIAR . zs a a fom 
B00 WRITECG1e2SIS) CLeSELTPCIDD | ‘ f 
0 mem WRITE (69-1016) . 9 


- - 90 340.1 = 1.eNSLK 4 
S77 gag YRITE (Ore 1OI7) Cle (SELIACL dese (NPBO) } / | 
1000 FORMAT (IHOs207602) ee 
TT IGG) FORMATCIHO. SEXe FAVERAGE STUDENT LOAD By WEEK ae - 
1002 FORMAT  1Ha, SEX. *YINIVUM siuDENT LOAD By yZEK #) - ot 
~e "1003 FORAAT IHD: S5x%_ *NAXIVUM STUDENT LOAD By (ec *) . 
: 10G4 FCRYATC IHG, SSx. ANYVAER CF COMPLETIONS it ywEEK #). % 
TTT OT 1999S FORMATO INO SExetNOMHER OF STUDENTS IN SYSTEM BY \EEK #)— 


—— 1006 FORMAT (1H9. 53%. #2 ore FUNCTION: OF: TIME TO COMPLET ION® » 
eee 1OOT - FORMATO 2OxeF 2008 
}oo8 FOR: cAyiiie goxse eke IN®7x#NO oF STUDENTS*6x*PROGABIL! iv oF a, 
ee ake 1 32x #SYSTEM* 6x #COMFLETING SERVICES 6x *COMPLETION®) . 
* 3909 FORMATC IH « 3exalS. YSxeFOeOel Exe F402? 
“ “1O1O FORMATCIHSiZexe FTOTALS*® 19X0 F7eOe GXe FlG0e2) | 
we FONE FORMAT CIHSe28xe PNUNBER CF STUDENTS WITH. ZERO LOADS * ) 
“O12” FORMAT: 1H, S8x, * DMs TRIBYTICN OF STUDENT. LOADS * ) 
- 1033 FORMAT (1HO. 20x 9 #riCURS ¥ LOX #OCCURANCES* 1OXs#PROBABILITY#//) - 
1014 FORMAZ( 1HI4/ 740% * INS RYT ONAL ALTERNATIVE a reer iey DlgiRy 
" ON # 4/7 30Xe*# TYPE # 10xe * ‘NUMBER SELECTING | * 7) 
1015 FORMAT CiH eB1Xe PLO. lOKeF 1202) a 
2 1016 | FORMAT 1H1e 77.29% ¢ #ENETRUCT.IONAL ALTERNATIVE SELECTION By Pec 
U/742OXe* Po Co #, toxe FDISTRIGUTION OF TA #77) is 
1017 FORMATCIH « 20x. i7e 10x. I1SF60Q) 
19018 FORMAT(3Ho.22x, MEAN Is * lox. Fige3) 
“RETURN % END ~ oe 


me ee ee sf eee 


-< re rT? “. eS -“ 


mgr 2 EE bite 2a ae . 
eee" SUBROUT {NE REPORT2 ra des soi seroeane Seine eumpn sete: sn ® ae ara aad eo eae 
owe et -- COMMON ; : - i i . oy 
so otmeemens "COMMON y 127 LOANCISO). AMINGI50)« AMAX( 150) «STLO( 150) 
hduesd os ' COMMON 7137 FINIS(150),. “ITEMPc Io) « ASTUCISOILDZ00; 1hQ) 

“TOT COMMONS IOs TEMPCTSe¢2004IPAGE 9 
ieee pi COSMONZ ITZ CAGE UEO GOST i uae ie esi Gnass ote 
REAL LOAD +1.nZ00 peers oo 
oe ye ere. i. . "READ. IN IND TIAL’ HOURS ARKAy | + 
ees g =, A 6... SFO ATE RESOURCE LOADS | ; 
: | 
. 


CST AS TUCTINED © FINIS(TINE /TEMP COT. ria — SS 
2 PER = FINIS S(TINEDZTEMPCOT IC) es : 
wa Be ip es pen tito. | ee See eneedi tee epee cnn Tae 
IF(IP sEQ. 0) GOTO 7S - . 
TE CTP GT 0 105: 10901P sLEs 0) GO TO 77 Sap et ge ghee 


sewers coe oe OO 200 UC = S.NHRS . Boye eee! Gee : 
IF (uc sEQe17) co TO ?00 . . 
ee LF ESE §«60EQ01h) GO TO 200 nee eke eens Gee ie 
IF (JC. e£Qet9) GO TO 200 . 
ee ene __.. PF (JO eFQe 1) GO TO 200 ; : e area _ 
~~ IF¢JC ef Ge 7) GO TO 200 ‘ 
IF (JC =eECe 39 GO TO 200 5 te eatin ad scat iee chats alee 
AF (SC eEGe 6) GO TO 200 2 
CALL PAGE, I1PAGE ) 
EFOSC eB Oe &) WRITECG1.1005) 9 eee 
IF (JC eEGe 6) wRITE(61,1006) - 
— eee  OF OIC | cE Oe 7) wRITE (9141007) 2 i ae 
LIF (JC) eEGe B) yRITE (61.1008) 
oe OTE (IC eEOe 9) WRITE(61.1009) a ee 3 ° 
2 . TF (IC eEGelad wRITE(6!.10101 
TTF CIC 4p eEQe1t) WRITECGIA1OII) | ee 
JE UC eEQel2) wRITE( 61,1012) 
meee AF CSC) EE Q012)) wRITE(61.1001) - : 
; . TFC JC 0£Q014) = WRITES. 1062) 
eee TF (IC cE QelE) . wWRITS(6141003) i a > 
TFC IC cECol€) YRITE( G1, 10049) a 
emanate ae : Pe” Bie Stk Biba a SS Adie imental m-atleie. tard 
REwINOD 9 
Somme Semmes =" BMAX F000” = ye =o 
CNT =0e0 ; ; GS oe 
sete eererere emne Bg FS Ime 115g To fee teem cme 
ASTUCI) = Gen ; © ce ot ee 
PINTS (1) © O0Q TU TUT TNT ETE tn nt meee ctr etree mene 
DO 100 IT = 141000, hae St & 
rtm BO READE 69) HOURS, TIME, SEM oT’: — 
; . IF(EOF. 9) 110s 70 
Poe ge TT a3 fHe aaa LeGS Gee t+ Pah sees 


- IF CITX ele O .eORs ITX eGTe 150) GO TO 7778 
TP INESCTIMED = TEMP(OT 0JC) = HOURSIOT eC) OT” 
USE = USE + FINIS( TIMED 


; _ GO TO 78 
ccbidipebiniieieal 5 wRITEVGt «1ofst IP PER, FINIS(TIMED, TEMP(DT. JC) HOURS(DT 6 JC) 
vee areca ee 28 HRS & FINISOTIVED iasoe ae ; 


IF CAMAX eh. Te HRS ) AMAX ® HRS 
100 CONTINUE 


Oe pees ee me me me ce! 35 + eh eee: cee wmmmee 5 ween eccem « ea eee © we ae ee a 


bss | ee END OF LOOP 
WRITE (6142000) YC sol i sf 
woccedaues wee oop i i nc ee a 
110 IF CAMAX eh Ts 306 Y AMAX © 2900 
CRS ERE SST ae gua ie che Sp “gee 
_AMAX = IT +1 
ng bpeddy39 “a MT meme eee 
DELTA = 1D 
De CALL GRAPH, 150,FINIS, IH, 1H eAMAX. OF DELTA) 
RCOST = USE* COST(UC) 
ie ead ea WRITE (61.1018) USE. COST(YC). RCOST Sieh 
ten ci dan acesT # TCOsT + RCOsT ae Bs — me 


ee TABULATE PERCENT USE OF RESOYRTE 
“CALL PAGEY 1PACE) . gs 
WRITE (61.1017): \ 
° 5-77 


€ 
al aaeiatear. oe 


1 wee eee 8 oe 


OS ee mee | ae ote Oe Me va eeS a 


EET 


_ 3. ENO. 


SUBROUTINE SDIV(AAWNN) 
_ DIMENSION AACNND | 


“TFLG = 
5 ...SUM4 
; sultal 
su2 

~ SyuM3 

. SUMS 


““t0° 00-100 


ae = AA 
TF ¢tFu 


IF ¢CABS(X) 
50 SuMI = 


1 
9999999 .9 
Oed ; 
Oe 
OeG 
=. =-999999-9 . 
1 = 1,NN 
(1) 
G eEQe 
eL tT. e 
sul +x 


oes meses soe 


1) ‘GO 70 5o_ 
*. €0C0091) GO TO 100 


5778 | 


1025 FORMAT(# BAD DATA IN REPORTZ* 119,5F 1522) 
3 1026 FORMAT (§HO+31X. BTOTALS # oe 82XKeF 14000 LCXeF Me BASSAS /S//) 
7778 CALL ERROR (GHREPT2: H1TX+SEMsNGEEK 1940001 


ae he 8 we eam we 


+ iy. 6 . - 
ene: ee WRITE (6141620) 
-_ Dy = TIME 
eee ce ee, , AKK = 000 : . 
SUM = 000 
ets ee se DO 350 INx = 1410 7 s & eee 
TOT = 000 
seen cee eee. OO 160°E & Te TIME 
Bxx = Axx + ° 2.10 : : 
ot Bie en . TF CBxx eGTe 025) Bxx = 1690009 i 
— 180” IFCASTUCI) «GEe AXX eANDe ASTUCT) eb Te BXX) TOT = TOT + 1¢0 
PROB = TOT/OYy : 
sane eG ‘SUM = SUM + PROB S 
aes Le WRITE (G1, 1019). AXXehxxe TOT, PROB 
re Axx = Axx + 010 . . ' 
ee 300 CONTINGE , 
me WRETE (6101026) OveSuM ie eel 
WRITE 61.1521) cAstucld.! 21eTIMED 
Fe eS nena , END OF DS LOO> FCR_ covBLere sushour Ing 
200 CONTINUE 
ie 8 Dae RETURN e Tesemaee 
1NM00 FORIMATC1HO. = * NO ECF ON TAPE 9 *# 110) 
as 100) FORMAT (1HOeESx0 ZELEMe PURTL HRye UTILIZED By *) 
1002 FORMAT CiRCeDSxs FALOITORILY HOURS UTILIZED SY on 
ae “1003 FORISAT. CiHoeESx_ *CFFFICE HOURS UTILIZED By * 
; 004 FORWAT C1HOGSSX, BOSSERVATION PRSe UTILIZED BY *# > 
nO SEN es 00S FORMAT (IHo.5Sx,_ # STAFF BSYRS VTILIZED sy i a 
1006 FORMAT (1HS«SSx~e #GRAD ASST HRS (GTA) UTILIZES Ey *) 
ie 1007 FORMAT (CLHo,>ex, # LAS TECH rikg UTILIZED By e) 
. 1008 FoRvaAT cite. SS~, FCLAsshcoy HOURS UTILIZED By * 
T9909 FORMAT (1HO.55xe # Lab HOURS UTILIZED: ty oe 
‘ Iolo FORMAT Clee SSK, LIBRARY HOURS ; LTILIZzz=O & eye 
_ 1OEL FORMAT (1E9s55x%_q *#MOTION PICTURE HRS UTILIZED By ae 
“3012 FORMAT (lHo lex, FELENe CLagsh¥ hig UTILIZED. dy ey 
womeeerse=r "1015 FORMAT CingeStx, #NICRO TEACHe HOURS” UTILIZED ty #7 
1017 FORMAT ¢ Ho S54 % DISTRISYTICN. GF RESOURCE LOADINGS* a 
ae 1018 FORMAT CIRC. 25x%_ FTOTAL RESOURCE ySE #4F1Z02,2x. *CRST PER UNI 
cemem «women, doves 1 aFVOe2 i 2xKe *#TOTAL cest # FY20c2) F ; 
"$919. FORMAT CIM . 30x, F602, FOe2, LoxeF teegs Lome? 3) 
eee ‘lo20 FORMAT (ING. 30xKe#LOADING OF RESSYECEF 2SxXe “#ORODASILITY EZ 
eM eae: | 33y, ‘#(PERCENT)#) © ; 
1023 FORMAT( 10x. 15F 762) 


onset 


_ TFLG = oO. ; : : e ; 
. 2 em mmeemme ere meee Clem eee ce we GO TO 5 : . sae ss Sa ee aa - — {<= saeeees se 
hie END . z = 
sistas ae ee os c ee swe : fo onee es eeee on =_: URGE ee te: fete i it ti ee ae Coe ee : 
a ee eee : a ee : ay 
enm eweee 8 ew Oe ie ee “TS UBROUTINE PAGE (PAGE) -_ i en Sea a ee, er . 
COMMON/CTRL? EER, ORY SE (TIME DT eICAS EsETINE sSTIME WEEK 
PT ety tee vk INTEGER WEEK, Ohy.S&M eTHHE OTe ICASt eee TS ay ine 
IDAY=IDATE (KL) ; 
ee oe “"WRITE(61,199) IPAGE,IBAy, ICASE © — oa Pie gs 
wee 100) FORMATCIHI. *PAGE NOs He LE e 7Xe, = ae: 
~~" ns | aaa AB.20xe*4ODEL TEACHER EDUCATION” simgarion PROGR 
voce cetetece ceeses ac ene .£%0K%e FCASE NUMBER * FS) . . 
- IPAGE = IPAGE + 1 i es ; 
. RETURN | $ END 
meee TUN oes Nit a itis le cutiieh Silyaseeeeedh eeapewusies. adesieweivaciy mee 
id li i ae ince ee ee ae 


. a SUM2 = SUM2 + X#X pears ees as, eee be 
su'3 = suMm3 +1e6 : ; " 
cesee eee Ceneeee ee. SUMS = AMIN (SUMS ae 
~ SUMS 2 AMAXL(SUMS«x) 
vet eee eee. 200 CONTINUE a diaas Geis. +e oekoas 
NPRNy = 61 = : 
28 IF(IFLG EG. oO) GO TO Ilo 
eee 66) WRETECNPRMT, 23) , eh ai aa es 
23 FORMATS 27x.*CODE «MEAN ‘STOOEVs 
ue oe Pian wee “gulag eee ] 
GO-TO 120. 8 _ me 
ede eee Lo WRITE INPENT tone ee i a ca 
eee _.... 060 FORMAT(7 44x, XNON ZERO vais ONLY *) . : 
— Tey ye cul. coi tent abet sw 
epee eee ate XSS F SUMZ cet cia ee tee ere 
5 2 " ¥N = SUM2 Bae Pe ee ee ae 
, AyvG=xs yN ; 
Tommi ere STD= CUDINEXSS = OX588S 97 ONE XNA oO} VERS TOT wore 
N= yn : 


“WRITE (NPPNT 24) 1 ¢AVGsSTOe SUM4.SUNS»N” ~ SS ete ID Sen ve ae “i 
_ 26 FORMAT(27x,13,4F1104,17) ; a — 
ER CLELG sEGe 0) RETURN | OTT IT toot mmeneeee seem teeie t 


“SUBROUTINE ERROR (1 A,B COEF} 
COMMON CTRL, WEEK, OAy, SEM , TIME, DT, ICASE, ET IME. STIME, NwEEK 
“INTEGER “WEEK .OAY SEM A TIM Ey DTsICARE SET IME ¢STIME or 
: WRITE CSI, 1962), TIME, 14,8, C.0.0,F af 
“4002 FORMAT. (# ERROR #1109.A6.G110) 
ee eee WRITECG1,1001)— TIME. 1 A.8,C OE ; — 
~ "'Yeot FORMAT ¢ # ERROR #,11Q,AG(GF 1802) Ue 


eee meee we 


RETURN: % END . be 3 os: . 8 
. = SNES ARO eI eee : et aay OM Qed cee aed “onde od oe 
wcbccin cece ee eee. .SOAYSTDATE (KL) : jets de Bees dessa aa 
WRITE(GO1L,4q001) I1BAY | ‘ 
ce ec MOOD FORMATUIMYSSSSSSSLIIEOLIIITTITALAS ST . 


“1° 18x, * MODEL ELEVENTARY TEACHER Pa 
2 23%. *EDUCATION PROGRAM ® 77 


mee 38 1BX_ ACOMPUTER SINULATICN PROGRAM & ut 
a _ 4 20X.*DATE OF PUN * AB oe ok. 
- RETURN $. END , a Oe Se ne 8 
ese es ot | ae Kee Gk gf wage  & aeterigbimee an rene 
c £e4 
IDENT . IDATE ; 
ENTRY 1DATE : 
. . 5=79 
ee 


a ee Oar ea er a ee 2 me mre ee ee! te ee ee ee ee ee ee aes 


_ MBJP | teet . : . pees es eek 7 
DATE 
Sty LTOATE ee 
END = eee Bid tee tactes: dads 
SUBROUTINE GRAPH ( NeAMeAsB «AMAX. AMIN eOELTA ’ 
COMMON/CTRE/ WEEK«DAY*SEM «TIME eDT  ICASE, ETIME + STIME sNWEEK 
INTEGER. wEEK.DAY.SEM sTIME. DT. ICASE, EVIMEYSTIME 
“DIMENSION MARKCEZODeAM(N) =“ sBINCEZO) - 
INTEGER , Ae B i : 
i ai ee """  " amek}) = ARRAY TO BE GRAPHED : " 
a a a Nos “NO. OF ELEMENTS IN: ACN) 
‘A & PRINTER CHARACTER ° 
ae 8 = eg tis CHARACTER FILLER: . 
oe eae te a "MAX OF 129 LINES IN GRAPH : 
‘KCUNT = 1 . 


~""28 PRINT 100 ; 
_.. 100 FORMAT (IHO/////) ee ne 
| PRINT lot 
oF tol FORMAT (1394122 ¢1H=9) 
“SAK & AMAy 
400 2 I =1.120. 
TO MARK(T) = BO 
YF CAM(T)«GTeAK) «=—- MARKET) EA | 
3 CONTINUE ey . oe 
. WRITEC: Glee 10000(AKe (MARK(I) « I #1,1220) 
VYOOO FORMAT (# *F1002¢2%0 1H. T20(A1).tHI) 
3 TF CAK «BEp 0oct) Go TO. Soe 
“AK = AK-DELTA | 
ace TF CAK el T* O63) AK = col 
“YE CKOUNT «GT. 120) GO TO SOO | 
- IFCAK eGEe AMIN 3 GOTO 4 0 
‘B00 PRINT 102° | 28 areas 
102 FORMAT (13x 4 Hae, 24 (SH mmm) 2H) 
“PRINT 1040 (Kee=Se12005) 
104: FORMAT. (EX 4 GHWEEK 4x 4241567) 
PRINT 105 
__105, FORMAT (1408 (1x4 TH#) =) 
‘PRINT. 107, (JeJ=1,8) | 
107 FORMAT : (6X4 SHSEMESTER 08115), 
tll ch Sea TIME) 
RETURN. Pi 
END 


- 
ee ee ere. reer et 


re ee ee sk je 8 kee 


